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VACACIONES 



f^e acercan las vacaciones de verano y las 
^k nochps pstivalps se. prp.ven largas, cdVi- 
kJ das V fantasiosas. Los ordenadores se- 
rein el cenTro de atenciou de todas las noctdm- 
bidas miradas, convirliendo los aburridos 
mitineslveladas en fieslas midticolores de so- 
nidos, musica y explosiones. 

Poco a poco, los joysticks ociipan siis 
puertoslpuestos, el cansancio se va adue- 
nando de niiestras munecas y los reflejos de- 
caen al paso del tiempo. Llega el final y las 
despedidas, regresando el silencio a la paz 
del hogar, a la pantalla del monitor. 

El ordenador, companero de desventuras 
alienigenas, descansa de siis baudlas galdcii- 
cas interestelares. Las luces se apagaii y una 
nueva etapa comienza, mas intimista, mas 
satisfactoria y provechosa: llegar al corazon 
del microprocesador, seducir al programa re- 
sidente en memoria, descubrir sus interiori- 



dades... Eso es lo que podriamos llamar se- 
duccion de im programa. 

La noche es im buen estadio para conse- 
guir records, olimpicos o mentales («mens 
Sana in corpore sano>^), un circuilo donde co- 
rrer contra reloj contra otros programadores, 
un «campus» de sole dad y duelo entre la md- 
quina y el hombre. 

En esas horas, el BASIC se convierte en 
delator y el codigo mdqu'ma en enemigo. Las 
sentencias chocan contra los errores sintdc- 
ficos y los desensambladores son paladines 
de causas aun por defender. La lucha es ar- 
dua, cruel, salvaje,... los pdrpados sucum- 
ben al sueno, la mente obnubilada es presa 
de ciegas fantasias y lo que creiamos poder 
hacer se convierte en Utopia... 

Una nueva mafiana clarea en el horizonte 
y el RETURN del cansancio nos RESETEA 
hacia otra SUBRUTINA: la del sueno. 
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DIAGRAMAS 
DE BARRAS 



UN DIAGRAMA DE BARRAS 



INTRODUCCION 



ATODO COLOR 



DE LA INFORMACION 



GENERALIDADES 



UTILIZACION 



DEL PROGRAMA 



CORRECCIGN DE LOS DATOS 
TRAZADG DELGRAF ICO 
ESCALADO DELOS EJES 



Para efectuar un aiialisis instantaneo 
facilita las cifras >, olvidandote de las 
niatematicas. observa coniotu micro las 
coiivierte en un dia^rama cle barras a 
todo t:olor y con un aspecto totalmente 
profesional. 

Todo cl mundo habra visto referen- 
cias dc los sistenuis infornuUicos de 



oficiiui que mucstran elLiboradas re- 
presentaciones de dates talcs como ci- 
fras dc compras e inventarios. Esla 
clase dc inform acion. cantidad de ci- 
fras virtualmcnte incomprcnsibles, se 
prescnta mejor eti forma dc grafico o 
dc tabla, que se comprende mas facii- 
mcnlc de una ojcada. Prepararlo a 
mano cs tedioso. pcro precisamente cs 



e] tipo dc trabajo en cl que dcstacan 
los ordetiadores do oficina, con su ca- 
pacidad para dar una presciitacion a 
todo color en cucstion de segundos. 

La presentacion de dichos datos no 
solo sc limita a las maquinas de ofi- 
cina. simi que tambien cs una de las 
aplicaciones praclicas de un ordena- 
dor domcstico- 
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No es probable que el usuaria me- 
dio de dicbo tipo dc ordenadores ma- 
neje algo parecido a la vasta cantidad 
dc informacion gcnerada incluso por 
un negocio pequeiio, pcro hay muchas 
cosas que pueden analizarse litilmcnte 
en un ordcnador. Por ejemplo. ^,sc in- 
crcmcntaron los ingresos y los gastos 
hacia fin de ano, o disminuyeron los 
gastos? (.Huti gastado mas en software 
informatico (o en otros articulos talcs 
eomo rcvistas. entrelcnimicnto v con- 
sumo) durante el otono que durante el 
vcrano? /.Cuando sobrepasan tus aho- 
rros un cierto nivel y durante cuauto 
ticmpo permaneeen asi? 

Junto a diehas aplicaciones dc tipo 
comereial hay loda elase de temas de 
interes general, quizas datos y cifras 
relaeionadas con un hobby, que po- 
dn'an ser analizados y rcprcsentados. 
Dichos icmas van. por ejemplo, desde 
las cifras de asistencia en el club local 
hasta los niveles dc preeipitacion o de 
las mareas. Otras cosas que puedes 
desear representar graficamentc son 
resuitados deportivos, o ei tamano de 
una eoleeeidn en crecimiento. 

EI sencillo programa ofrecido aqui 
te permite prcparar rapidaniente una 
reprcsentaekJn visual de eualquier es- 
tadi'stica que varfe a lo largo de un pe- 
riodo de tieinpo. Los ejes del grafieo 
sc ajustan automaticamente, por lo 
que puecies enlrar cifras semanales. 
mensuaies o anuales. Dc heeho, pue- 
des utili/ar eualquier unidad de 
tiempo. 

Puedes manejar valores que lleguen 
a eualquier magnilud, unidades. de- 
eenas, centenas. millares o incluso mi- 
llones, si tus caleulos lleiian tan leios. 



UTILIZACIOIM DEL PROGRAMA 



AI lanzar el programa. visualiza un 
«menu» o lista de opciones. Scleecio- 
nando la opcion dc introducir nucvos 
datos, se te invita a indicar los nom- 
brcs de los ejes. Los rotulos que te- 
clees apareceran en ei grafieo cuando 
sc dibujc el mismo. Cuando introduz- 
cas dichos rotulos. reeuerda hacerlo 
correctamente. El ntimero de barras 
representando scmanas. meses, anos o 
lo que sea, se represcnta a lo largo del 
eje X, micntras que el valor dc las ba- 




rras, pesetas o eualquier otra unidad, 
^e represcnta a lo largo del eie y. 

A continuaeion se te pide que intro- 
duzcas el numero de barras a trazar. 
Puedes trazar un maximo de 30 ba- 
rras. 

Luego te pregunta los datos. Ini- 
prinie el uunicro dc cada barra y te 
pide que introduzcas e! valor, que 
pucde ser positivo o negativo. Dichos 
valores van de -1038 a 1038. 

Llna vez introducido el ultimo valor, 
se vuelve al incnii de modo que pue- 
das elcgir o bien eorregir los datos, 
modtficHndo los valores introdueidos 
en caso de que hayas cometido algiin 
error, o bien trazar el grafieo. Si eliges 
corregirlos, los valores se iiiipiiiiiiran 



correlativamente en la pantalla. De- 
hes pulsar eualquier lecla exeepto la 
teela RETURN para dejar sin cam- 
bios el valor v visuatizar el siguiente. 
pulsar la teela RETURN e introdu- 
cir a continuaeion el nuevo valor. 

Cuando estes satisfccho con los va- 
lores, seleeeiona la opcion dc visuali- 
zar o rrazar el grafieo. 

Puedes elegir entre un grafieo es- 
ealado o un grafieo a escala completa. 
La opcion de grafieo escalado visua- 
hza el grafieo con las dimensiones co- 
rrcspondientes al eje y redondeadas a 
un maximo de diez, cien, mil, etc. se- 
gun el valor maximo dc los datos, pero 
cl grafieo no lleua la totalidad de la 
pantalla. La opcion de pantalla entcia 
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visualiza cl gnifico sobre toda el area 
dc la pantalla del televisor, pero im- 
prinie los valores reales de los datos 
(no los vaiores cscalados} a lo largo 
del eje y. 

Para mayor claridad. las barras tra- 
zadas van scparadas por un pequeiio 
espaciti o por una barra colorcada. 



BB-53280:G0T0 200 

1 CLR:BB = 53280:FF=1 

2 POKE BB,0:POKE BB + 1,0 

3 Q$ = "[ 25*CRSR ABAJO]" 

4 INPUT "[SHIFT+CLR/ 
HOMEJNOMBRE DE LA 
GRAFICA"; N$ 



5 



NPUT "SHIFT+CLR/ 
H0ME][CTRL+8]NUMER0 
DE BARRAS. (1-30)"; XX 
5 1FXX<1 OR XX>30THEN5 

7 DIM A(XX),B(XX),C{XX) 

8 FOR Z= TO 30 

g IFXX*Z>30 THENXl-Z- 
1:GOTO 11 

10 NEXTZ 

11 PRINT 'TSHIFT+CLR/ 
HOMEIENTRAR DATOS 
BARRASTCRSR ABAJO]" 

12 FOR Z-1 TO XX:PRINT 
"BARRA N."; Z;:INPUT 
C(Z): NEXTZ 

13 A-0:B-0:C = 0:D = 



18 

19 
20 
22 



14 FOR Z=l TO XX 

15 iFC(Z)>ATHENA = C(Z) 

16 IF C(Z)<B THENB=C(Z) 

17 IFC(Z)<e) 
THENB(Z) = C(Z);A(/)-0 

IFC(Z)>0 

THENA(Z)-C{Z):B{Z) = 
NEXTZ 
C-A + ABS(B) 
GOTO 200 

24 POKE BB,5:P0KE BB + 1,0 

25 PRINT 'TSHIFT+CLR/ 
HOME]"N$ 

26 FOR Z=2T0 22 

27 POKE 1033 + Z*40,64:POKE 
55305 + 7*40,6 
POKE 1032+Z*40,45:POKE 
55304+Z*40,3 
NEXTZ 

FOR Z-1 TOXX:W-0:CO-8 
IF B(Z)<0THENCO = 2 
FOR ZZ-B/DTO A/D 
W-W + 1:IF INT(ZZ)<>0 
THEN38 
FOR G-1 TO XI 
POKE (1953- 
X1) + (Z"X1 + G)-W"40,64 
POKE (56225- 
X1} + (Z^-X1 + G)-W'"40,7 
NEXTG:G0T0 43 
FOR G=l TO 

Xl:CA-227:CC = CO:iFG<> 

1 AND G=X1 THENC0=1 

IF ZZ<0THENCA=228 

IF B(Z)/D>ZZ OR A(Z)/D<ZZ 

THEN43 

POKE ([1953- 

X1] + Z*X1 + G)-WM0:CA:POKE 

((55225- 

X1) + Z*X1+G)-W*40,CO 

C0=CC:NEXTG 

POKE BB:RND(l)"2 + 5 

NEXTZZ,Z:P0KE BB,5 

PRINT 'TCLR/ 

H0ME][CTRL + 6][CRSR 

ABAJO]"; LEFT$(Q$,20- 

ABS(B/D)) 

FOR Z=0 TO A STEP D*2:IF 

C=<10 AND INT (Z)<>Z 

THEN PRINT "V 3*GRSR 

ARRIBA]":GOTO 48 

PRINT INT (Z)"[ 3*CRSR 

ARRIBA]" 



28 

29 
30 
31 
32 
33 

34 
35 

36 

37 
38 



39 
40 

41 



42 
43 
44 
45 



46 



47 
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Commodore 64: cudu harm produce un cfecio. 



48 
49 



50 



51 

52 
53 
54 



NEXTZ 

PRINT "[CLR/HOME][CRSR 

ABAJO]"; LEFT$(Q$,20- 

ABS(B/D)) 

FOR Z=0TO B STEP-D*2:II 

C=<10 AND mi (Z)<>Z 

THEN PRINT "[CRSR 

ABAJO]":GOT052 

PRINT INTCZ) "[CRSR 

ABAJO]" 

NEXT Z 

POKE 198,0 

GET A$:IF A$ = ""THEN54 



55 GOTO 200 



100 
103 
105 



110 

115 
120 



125 



130 
135 
140 
145 



POKE BB,1:P0KE BB+1,1 

IF FF=0 THEN500 

PRINT 'TSHIFT + CLR/HOMEl 

[CTRL + 5] [CTRL+9] 

"TAB(10) "DIBUJO GRAFICO 

DE BARRAS" 

PRINT 'T2*CRSR ABAJO] [ 3 

ESPACIOS] [CTRL+6] t " 

FOR Z=:l TO 15 

PRINT "[ 3 

ESPACIOS][SHIFT+B] 

": NEXTZ 

PRINT"! 3 

ESPACI0S][CTRL+3] 

[SHIFT+W] [CTRL+4)", 

FOR Z-1 TO 30 

PRINT ""-■'"; :NEXTZ 

PRINT ■■>" 

PRINT"[CLR/ 

H0ME][CTRL+3][ 



160 
155 
170 
200 
210 



220 
230 
240 
245 
250 



260 
270 
280 

290 
300 
305 
310 



7*CRSR 
ABAJO][ 
5*CRSR 
DOHA.] 
VALOR: 
UNIDADES 
ENTRADAS" 
PRINT 
"[CTRL+7][ 
10XRSR 
ABAJO][ 
5*CRSR 
DOHA.] 
BARRAS: 
DIAS/ 
SEMANAS/ 
MESES" 
155 PRINT"[3*CRSR 

ABAJ0][CTRL + 51[CTRL + 9] 

■TAB 

5)"PULSAUNATECLAPARA 

SEGUIR" 

POKE198,0 

WAIT198,1 

G0T024 

P0KEBB,6:P0KEBB + 1,6 

PRINT"[SHIFT+CLR/HOME][ 

7*CRSRABAJ0]"TAB(15)" 

[CTRL+4]fCTRL+9][2 

ESPACI0S0PCI0N1[2 

ESPACiOS][CRSR 

ABAJ0][CTRL + 2]" 

PRINTTAB(12)"1ENTRAR 

DATOS" 

PRINTTAB(12)"2GRAFIC0S 

AESCALA" 

PRINTTAB(12)"3VER/ 

EDITARDATOS" 

PRINTTAB(12)"4GRAFIC0S 

AMPLIADOS" 

PRINTTAB(13)"[CRSR 

ABAJ0][CTRL+4][CTRL+9] 

ESCOGERFUNCION?" 

POKE198,0 

GETA$ 

ONVAL(A$)GOTO400,700, 

300,600 

GOTO270 

IFFF = 0THEN500 

POKEBB,7:POKEBB+l,7 

PRINT"[SHIFT + CLR/ 

H0ME][CTRL + 5]"N$" 



315 



320 
325 



330 

335 
340 
345 
350 

355 

360 
365 
370 
375 
400 
410 



420 
430 
440 
450 
500 



510 
520 
600 
605 

606 

610 
700 
705 

706 

710 



DATOS:" 

PRINT, "[CRSR 

ABAJ0][CTRL+3]BARRA", 

"[CTRL+7]ALTURA[CRSR 

ABAJO]" 

FORZ01TOXX 

IFA{Z)<>0THENPRINT, 

'TCTRL+7]"Z, 

'TCTRL+3]"A(Z):G0T0335 

PRINT, 'TCTRL + 3]"Z, 

'TCTRL+7]"B(Z) 

POKE198,0 

GETA$ 

IFA$=""THEN340 

IFA$<>CHR$(13)THEN 

370 

PRINT"[CRSR 

ARRIBA][CTRL+11'TAB{18); 

INPUTC{Z) 

G0T013 

NEXTZ 

GOTO200 

P0KEBB,13:P0KEBB+1,13 

PRINT"[SHIFT + CLR/HOME][ 

8*CRSRABAJ0][6*CRSR 

DCHA.][CTRL+6] 

PULSAR[CRSRDCHA.] 

{[CTRL+7JEICTRL+6]) 

NTRARDAT0S,([CTRL+7]M 

[CTRL + 6])ENU" 

GETA$ 

IFA$-"E"THEN1 

IFA$-"M"THEN200 

GOTO420 

PRINT"[SHIFT + CLR/ 

H0ME][CTRL+1]"TAB(16) 

"NOHAYDATOS!" 

FORZ=1TO500:NEXTZ 

GOTO200 

IFFF-0THEN500 

iFC<-10THEND-.5:GOTO 

100 

IFC< = 20THEND=1:GOTO 

100 

D=C/20:GOTO100 

IFFF=0THEN500 

IFC< = 10 

THEND-L25:GOTO100 

IFC<-20THEND-2.5:GOTOO 

100 

D-C/20+9:D = DM:D=lNT 

(D)n0:GOTO100 
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En INPUT estamos convencidos de que aun 

puedes hacer muchas mas cosas con tu 

ordenador. Sin duda, nnuchos lectores estareis 

utilizando vuestro micro para funciones de lo mas 

variadas, en unos cases; pintorescas, en otros; 

mientras que aigunos listillos habran podido 

utilizarlo para resolver tareas complejas. Es logico. 

modificando programas y vanando los perifericos 

nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 

sus lectores y por eso ha organizado el «Concurso 

de Aplicaciones y Utilidades», en el que puede 

participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefaccion de tu casa, gobierna 
un robot, dirige un pequeno negocio, organiza la 
maquela de tu trcn electrico. o cualquier cosa iii- 
tercsante u original; envianos informacion grafica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive- 

Todo ello habra de venir acompanado por un 
texto que aclare cual es su objctivo. el modo de fun- 
cionamiento y una explicacion del cometido que 
cumplen las dislintas rutinas que lo componcn. EI 
texto se presentara en papel de tamaiio folio y me- 
canografiado a dos espacios. No importa que la re- 
daccion no sea muy clara y cuidada; nuestro equipo 
de expcrtos se encargara de proporcionarle la forma 
mas atractiva posibie. 

UN JURAl3o propio decidira en cada momento 
que coiaboraciones reunen los requisites adecuados 
para su publicacion. y cvaluara la cuantia del pre- 
mie en metalico al que se hagan acrecdoras. 

No olvideis indicar claramente para que ordena- 
dor esta preparado el material, asi como vuestro 



nombre y direccion y, cuando sea posibie, un tele- 
fono de contacto. Entre todos los trabajos recibidos 
durante los proximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformatico a eiegir por 
losafortunados. 

jNo OS desanimeis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas estan re- 
visadas con el maximo inleres. 

INPUT COMMODORE 

Aribau, 185. Planta 1.' 
08021 BARCELONA 



NOTA: INPUT no se responsahiliz;i de la dcvolucion del ma- 
teiial que no vaya acompanado por un sobrc adecuado con cl 
. franqueci correspondientc. 
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GRAFICOS DEFINIDOS 
POR EL USUARIO (II) 



He aqui dos nuevos personajes — una 
serpiente y un mono — para completar 
el escenario de la jungla, mas algunas 
ideas para animar el cuadro y para aho- 
rrar memoria. 

En los capitulos anteriores de esta 
serie habras visto la manera de definir 
una gran cantidad de figuras en tu or- 
denador y has cnipczado a formar un 
cuadro de una escena de la jungia para 
utilizarlas. 

El programa de la escena de la jun- 
gia esta formado por scccioncs, en las 
que se definen en cada una los UDG. 
Cada seccion forma parte del cuadro 
— cl cocodrilo. el elefantc, los arboles, 
etc. — . La segLinda parte del programa 
que sigue anade una scrpicnLe y un 
mono y tcrmina cl fondo. 

Si has almacenado la primera parte 
del programa en cinta o en diskette, 
podras cargario en el ordenador. por- 
que este programa requiere la primera 
parte para funcionar. 

Las lineas adicionaies de datos que 
necesitas para definir las imagenes se 
escriben despues del programa prin- 
cipal. En primer lugar escribe estas li- 
neas: 

51 FOR Z=144T0 759:READ 
X:POKE 133i2 + Z,X:NEXTZ 

100 M$="[CRSR 

ABAJ0][CTRL-h9][ 2'^CRSR 
DCHA.]/0[ 2*CRSR 
DCHA.]12[CRSR ARRIBA]. [ 
2*CRSR ABAJO][ 9*CRSR 
IZQDA.]" 

110 M$-M$ + "[CTRL-f9][CRS 
R DCHA.]345[CRSR DCH 
A.]67[CRSR ABAJO] [ 6=^ 
CRSR IZQDA. ]89[ 2*CRS 
R DCHA.]:;<[CRSR ABA 
J0][ 6*CRSR IZQDA. ] = >[ 
CRSR DCHA.]?[SHIFT-h*][ 
SHIFT -l-A][SHIFT4-B][CRS 
R ABAJOII 7*CRSR IZQD 



120 M 



A.][SHIFT4-C][SHIFT + D][S 
HIFT+E][SHIFT + F]tSHIFT 
+ G][SHIFT+H][SHIFT + I][ 
SHIFT4-J][CRSR ABAJO] 
[ 8*CRSR IZQDA.]" 

$ = M$ + "[CTRL + 9][SHIF 
T+K][ 4*SHIFT+L][SHIFT 
-hM][SHIFT+N][SHIFT-hO] 
[CRSR ABAJO][ 9*CRSR I 
ZQDA.][SHIFT+P][SHIFT-I- 
Q][SHIFT + R][ 2*CRSR D 
CHA.][SHIFT+S][SHIFT + T 
][SH1FT+U][CRSR ABAJO] 
[ 9*CRSR IZQDA. ][SH1FT 
+ V][SHIFT + W][SHIFH-X][ 
SHIFT + Y][ 2*CRSR DCHA 
.][SHIFT + Z][SHIFT-h +][C 
RSR ABAJO][ 6*CRSR IZ 
QDA.][COMM+ -][SHIFT 
-h -][CRSR ABAJO][ 2*0 
RSR IZQDA. ][SHIFT+ "[ M 
CTRL + 4]" 

PRINT "[ 3*CRSR ABAJO 
][CTRL-h2][ 4'^CRSR DCH 
A.][CTRL + 9]RUX[t !"C$ 
"[ 4*CRSR DCHA.][CTRL 
+ g]SVY^"CHR$(34) "$&( 
*,"C$'T 4"CRSR DCHA.J[ 
CTRL + 9]TWZ] #%') + -" 
POKE 1088,81 
TT=T:PRINT 
"[CLR/hlOME]"TABCT) 
"[CTRL+3]"M$:F0R D-1 
TO 50:POKE 55360, 
RfMD(l)* 7 + l:NEXT 
D 

PRINT "[CLR/HOME]'TAB(T) 
'TCTRL+1]"M£ 



A continuacion escribe estas Imeas 
de datos para definir las formas de los 
UDG. 

400 REM SERPIENTE 
410 DATA 0,0,0,0,0,0,3,14,31, 
31,63,67,65,254,254,22 



140 



155 
175 



5,71,63,0,0,0,0,0,0,0 
420 DATA 0,0,0,0,255,12,28,2 \ 
8,28,254,143,1,0,4,248 
208,224 N. 

1430 DATA 0,0,0,0,0,0,0,0,0,0, 

0,128,240,56 
1440 DATA 52,99,225,225,225,, 

96,47,31, 14,6,2, 1,0, 0,0\ 
,0,0,0,0,0,3,5,63, 
127 
1450 DATA 255,225,240,248,2 
52,255,255^ 
124,247,247, 



■ ,126,60,28, M 
■7,115,31,1, } 

^8,249,25 > 
,0,0,0,0,/ 



1460 DATA 255,191,159,143,1 

99,194,127,64,128,128 

,64,63 
1470 DATA 48,112,248 

3,255,189,255 

192,252,190,63,63,24,^ 

240 
1480 DATA 9,5,7,5,249,67,243 

,251,255,252,238,239, 

255 
1490 DATA 192,224,208,223,2 

24,129,193,227,243,24 
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DATOS PARA COMPLETAR 

LA ESCENADELA JUNGLA 

UNASERPIENTE YUN MONO 

CQMPLETANDO EL RONDO 

EMPLEO DEGRAFICOS 



DE ALTA RESOLUCION 



ANIMACIOM DE LOS 



CARACTERES 



ALMACENAMIENTO DE DATOS 



EN CODIGO MAQUINA 




7,255,248,2413,224, 

192 
1500 DATA 0,0,0,0,255,129,19 

5,199,199 
1510 DATA 239,239,255,0,0,0, 

0,0,0,0,0,128,248,31,1 

40,158,191,191,255,0, 

0.0-0 
1520 DATA 0,0,0,1,15,62,206, 

30,61,121,243,247,247 

,63,15,3,0 
1530 DATA 30,127,191,95,93, 

51,250,240,194,252,19 

4,192,192,224,224,240 
1540 REM MONO 
1550 DATA 1,2,4,8,16,32,64,1 

28,0,0,0,3,31,63,127,2 

52,0,0,0,224,248,252,2 

52 
1560 DATA 62,3,15,15,15,15,1 

4,14,12 
1570 DATA 3,142,240,192,128, 

0,0,0,1,1,3,3,3,3,3,3,2 

48,240,224,224, 

192 
1580 DATA 192,192,192,30,14, 

110,76,56,0,0,0,0,0,0,0 

,0,0,0 
1590 DATA 1,28,28,56,56,112, 

112,224,224 
1600 DATA3,3,1,1,1,0,0,0,19 

2,224,224,240,248,248 

,252,126,3.7,15,31,63. 

62 
1610 DATA 126,252,192,192, 
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128,0,0,0,3,7,0, P, 0,0,0, 

0,128,223 
1620 DATA 127,63,31,31,15,7, 

7,3,0,128,128,192,192, 

192,224,240,252,125,1 

26,127 
1630 DATA 63,63,31,31,15,15, 

7,3,3,131,131,131 
1640 DATA 255,255,231,231,2 

55,252,172,183,128,19 

2,224,224,224,224,224 

,224 
1650 DATA 1,1,0,0,0,1,3,7,248 

,255,255,255,255,255, 

255,255.0 
1660 DATA 255,255,255,255,2 

55,255,255 
1670 DATA 15,255,255,255, 

255,255,255,255,199,2 

55,255,255,255,255,25 

5,255 
1680 DATA 223,239,255,255,2 

52,128,0,128,224,240, 

248,248,240.96,0,0,0,0 

,200 
1690 DATA 232,248,248,120,1 

12 
1700 DATA 7,15,15,31,31,63,6 

3,255,255,255,255,255 

,255,255,255,192,224, 

224 
1710 DATA 224,224,224,192,1 

92,0,0,1,1,3,7,14,60,24 

0,224,192,128,128,0,0, 


1720 DATA 0,0,0,0,0,3,15,31, 

63,63,63,63,126,254,2 
52,240,191,191,63,63, 
63 

1730 DATA 63,63,63,15,7,7,7, 
7,7,7,7,192,131,135,15 
9,191,255,254,252 

1740 DATA 252,248,240,224,1 
92,128,0,0,0.1,3,7,6,6, 
4,0,127,254,240,224 

1750 DATA 64,64,0,0,192,0,0, 
0,0,1,1,3,63,31,63,127, 
254,252,248,240 

1760 DATA 7,3,0,0,0,0,0,0,24 
0,192,0,0,0,0,0,0,7,7,1 
5,31,31,31,23,23, 
224 

1770 DATA 192,128,0,0,0,0,0. 



7,6,4,0.0,0,0,0 

Todas estas adiciones se adaptan 
pcrfectamentc a la primera parte del 
programa, y lo amplian para anadir al 
mismo mas figuras. La linea 51 anade 
otro bucie FOR ... NEXT para intro- 
ducir los datos adicionales de los nue- 
vos caracteres. Las Hneas 100 y 120 
crean el mono, la linea 140 crea la ser- 
picnte y la linca 155 coloca una luna 
en el escenario. Para ahorrar memo- 
ria, los UDG del mono se asignan a la 
variable MS. Por carecer de comandos 




BASIC de alta resolucion, la luna se 
representa con graficos corrientes. 

EL CUADRO COMPLETO 

Come podras ver cuando ejecutes el 
programa, la pantalla qucda ahora 
llena de objetos y personajes, con lo 
que el cuadro parece completo. La 
serpienle, el mono y el so! son anadi- 
dos por las lineas adicionales. 

Tambien puedes anadir mas elefan- 
tcs, arboles o cocodrilos si lo deseas, 
pero en cualquier ca&o. dispones de un 
juego complete de personajes para 
ulilizarlos en tus propios cuadros. 



SIGUIEIMTES PASOS 



La gama de variaciones que puedes 
obtenercon los UDG escasi ilimitada. 
Ademas de cambiar el numero de ser- 
pientes, de arboles, de monos. etc., 
tambien puedes utilizar los caracteres 
graficos para que formen estas ima- 
gencs para olras cosas. 

Un ejempio evidente consiste en 
emplear las copas de los arboles con 
un color diferentc (conio puede ser el 
bianco) para representar nubcs, o 
como arbustos. 

En estos casos deberas tener en 
cuenta los contrastes. de color. 
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Supon que quieres emplcar copas 
de arboles como arbustos: si colocas 
los arhustos en las colinas, como estas 
son verdes, dichos arbustos no se va- 
ran, a menos que desees que los ar- 
bustos sean rojos, por supuesto. 

ANIMACION DE CUADRO 

Las ventajas de crear imagenes con 
UDG no termina con las posibilidades 
dc modificar la escena una vez termi- 
nada, sino que. con muy pocos cam- 
bios, puedcs convertirla en un caadro 
animado. 

Por ejemplo, para animar los ani- 
males, puedes definir uno o mas ca- 
racteres adicionales: olra trompa para 
el elefante. una scrpiente -con la ca- 
beza Icvantada o el mono comiendose 
un platano son solo algunas de las mu- 
chas posibilidades. 

Una vez hayas decidido que quieres 
que hagan los animales y hayas defi- 
nido los UDG adicionales, te bastara 
con seguir el procedimiento para la 
animacion descrito en los capftuios an- 
tenores. 

Emplcando una serie de UDG dis- 
tintos para las diferenLes posiciones y 
presentandolos sucesivainente, el mo- 
viniiento sc podra hacer mucho mas 
real, mas diverlido, mas amenazador. 
como desees. 

COMO SE ENCAJAN LOS UDG 

Si vas a emplcar la animacion con 
UDG a crear imagenes por ti mismo 
podras encontrar en estas paginas los 




dibnjos dc la serpiente y del mono y 
el del cocodrilo en el capitulo anterior. 

Tambien se indican algunas posibles 
sustituciones de datosparael elefante, 
que es posible que desees emplearlas 
para la animacion. 

Mientras los animales pareccn que- 
dar limitados a escenas de jungia o de 
zoologico. los arboles, las nubes y los 
arbustos podras utilizarios en casi to- 
dos los cuadros que desees rcalizar 
con un programa. Con metodos simi- 
lares podras dibujas por ti mismo las 
escenas que desees. 

AHORRANDO WIEMORIA 

El programa descrito emplea una 
gran cantidad de UDG para demos- 
trarte la forma de utilizar tu ordena- 
dor mas alia de sus limites, asi como 
proporcionarte algunos personajes y 
figuras que puedes emplcar en tus pro- 
pios cuadros. 

Pero si deseas o necesitas crear un 
cuadro inipresionante con bastante 
menos UDG, puedes utilizar e! mismo 
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UDG una y otra vez. Por ejcmpio, 
puedes crear una manada entera de 
elefantes. O si en Tu cuadro has in- 
cluido una pared, podra cubrir una 
gran parte de la pantalla con solo dos 
UDG. 

Planificando cuidadosamente lo que 
deseas dibujar. podras crear con mu- 
cho cxito cuadros muy interesantes 
con un niimero de UDG sorprenden- 
tcmente reducido. Sin embargo. comcT 
es bastante normal que al cabo de un 
tiempo dispongas de un gran numero 
de UDG, ias linicas ventajas que pue- 
den obtenerse «economizando» los 
UDG son el tiempo que ahorras al no 
tencrlos que teclear y en la mcmoria 
ocupada por los datos. Como el pro- 
grama emplea una gran cantidad de 
memoria para almacenar los datos, 
puedes ahorrar much a de esta me- 
moria almacenando los bytes que for- 
man los UDG en forma de bloques de 
memoria y borrando despues las sen- 



tencias de los datos. Normalmente, el 
ordenador almacena cada byte dos ve- 
ces: una en las povidones de memoria 
que Uenas con los datos (POKE) y 
tambien con las propias sentencias de 
datos. 

El ordenador almacena en codigo 
maquina. o bytes de memoria, en la 
cinta alterando cuatro punteros para 
hacer que el area de BASIC corres- 
ponda exactamente con el bloque de 
memoria que deseas saivar. Entonces 
almacena los datos de la manera nor- 
mal. 

Por ejemplo, para almacenar los da- 
tos desde los UDG del programa, es- 
cribe en primer lugar: 

POKE 43,0: POKE 44,48: POKE 
45,230 

POKE 46.55 



y pulsa I RETURN | . A contmuacion 



entra esto: 



SAVE 'DATOS UDGM,1 

El ordenador almacenara un bloque 
de memoria que empicza en cl punto 
en que se inician los datos dc carac- 
teres, y termina al final de los mismos. 

El 1 que hay inmediatamcnte des- 
pues del nombre del fichero indica al 
ordenador que debe saivar en cinta, 
mientras que el segundo 1 que sc trata 
de codigo maquina, o datos. 

El cuarto POKE cambia las direc- 
ciones a las que se apunta el inicio y 
cl fmal del BASIC. En numeros an- 
teriores sc explicaron como funciona 
esto para el inicio del BASIC (para los 
dos POKE 43 y 44) y para los otros 
dos POKE, 45 y 46, para cl final del 
BASIC. Para volver a cargar los da- 
tos, emplea esto: 

LOAD 'nombre de ficheroM.l 

CONSEJOS PARA ANIMAR TUS 
FIGURAS 

A continuacion sc indican algunos 
datos que puedes incorporar al pro- 
grama principal para animar el ele- 
fante. Simplemente proporciona una 
altcrnativa de la posicidn de la trom- 
pa del animal, por lo que puedes 
pasar de una a otra para simular la 
animacion. 

DATA 0,0,0,0,0,1,3,3 

DATA 6,15,15,31,29,25,26,24 

DATA 24,24,12,12,6,0,0,0 

Ademas, tendras que variar los co- 
rrespondientes buclcs FOR ... NEXT 
para establecer y presentar los nuevos 
UDG. 

Tambien puedes mejorar el elefante 
animado dcsplazandolo a una posicion 
mas visible de la que aparece en el 
cuadro. 

La animacion tiende a realzar un 
pcrsonaje, por lo que es una buena 
practica emplear las partes ammadas 
de tu cuadro como la parte principal. 
De esta manera podras distraer la 
atencion del observador de las partes 
menos llenas del cuadro. 

La animacion de los demas perso- 
najes podras rcalizarla de manera pa- 
recida. 
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CONOS, CURVAS 
Y SECCIONES 



CORTARUN CONO 



ELCIRCULO YLA ELIPSE 



UNA PARABOLA Y UNA HIPERBOLA 
ROTACIOMDE CURVAS 



APLICACIONESPRACTICAS 



La sencilla figura del cono es una de 
las forrnas geometricas mas fascinantes 
dc las matematieas, y proporciona una 
enters f'amilia de curvas. Con estos pro- 
gramas podras investigar sus propie- 
dades. 

Las curvas han t'ascinado a ios ma- 
tcinaticos desdc liempos inmcmoria- 
ies. V cuanto mas sencillas y elegantes, 
mas importanles se consideraban. Los 
antiguos matematicos gricgos eran 
iiiLiy aficionados a haccr las matema- 
tieas tan scncillas como se pudiera, y 
per cllo cuando sc dcscubrio que sc 
podia obtener toda una familia dc cur- 
vas (conocidas como secciones coni- 
cas) de un simpic tajo practicado so- 
bre un cono, ies parecio que Ios conos 
dcbian de reveslir un significado es- 
pecial. 

Dc hecho la bellci:a dc cstas curvas 
esta en que no son puras abstraccioncs 
matematieas, sino que tropczamos con 
ellas en la vida diaria, y nos propor- 
cionan una precisa descripcion de Ios 
fenomcnos ffsicos. 

Naturalinentc. en la naturaleza sc 
encuentran otras curvas scncillas que 
no son secciones de un cono. La forma 
de una cuerda o dc una cadena que 
cuelga entrc dos puntos es una dc 
ellas. Sc llama catenaria. y. aunque 



parccc una parabohu ambas curvas 
tienen sutiles difcrencias. de tal modo 
que son descritas mediante ecuaciones 
muy difercntes- Pero las secciones eo- 
nicas son importantes ya que sirven 
para senalar el modo como se mueven 
las cosas, y, per ende. se necesitan 
para cualquier programa realista. 

Algunas curvas son tambien utiles 
como objctos solidos tridimensiona- 
les. Los cortes de un cono son bidi- 
mensionales, pero pueden rotar sobre 
sus ejes y ofrecer forrnas tridimensio- 
nales. Asi el circulo se convierte en 
una esfera, con infinidad de usos, y la 
parabola se transforma en un para- 
boioide, cmpleado en cosas tan diver- 
sas como Ios faros de un coche, el 
juego de cspejos de un telescopio, 
hornos solarcs. etc. 

Este articuio se divide en dos par- 
tes. La primera describe cada una de 
las curvas y como dibujarlas en la pan- 
talla, mientras la scgunda ilustra el uso 



de estas curvas en simulaciones como 
la trayectoria de un cubo unido a una 
escalera {una elipse), o de una per- 
sona que cruza cl rio a nado (una pa- 
rabola). 

Veras tambien como se dibujan for- 
rnas espectaeularcs con el solo empleo 
de la hiperbola y de la elipse. 




CORTAR EL COIMO 



Las cuatro curvus que se obticnen 
cortando transversaEmcnlc un cono (el 
circulo. la elipsc, la parabola v la hi- 
perbolu) son muy distintas cntrc si. El 
primero que las csludio con dctcni- 
miento fue cl griego Apolonio. alia 
por cl lino 200 a.C. 

EI pLinto inicial cs c! que forman'an 
dos li'neas que se cruzan como for- 
mando una X. Si se las hace rotar so- 
bre un ejc dc simetria (vcanse las ilus- 
Iraciones) se obtienen dos conos que 
pueden cortarse de cuatro mancias di- 
ferentcs. 

Si se praclica un corte en angulo 
recto con el eje dc simetria, ia seccion 
que se obtiene es un circulo. 

EI corte reaJizado formando un aa- 
gulo cntre 90'* y la mitad del angulo 
que forman las lineas inicialcs (deno- 
minado angulo semivertical dcJ cono), 
proporciona una seccion denominada 
elipse. 

EI corte rcalizado formando un an- 
gulo con el eje iguai al angulo semi- 
vertical nos da una parabola. 

Un corte con un angulo menor que 
cl semivertical da una seccion con dos 
partes dcnominadas hiperbola. La hi- 
perbola tienc dos partes porquc ct 
corte afecta a ambos conos, el supe- 
rior y el inferior. 

Observa estos dos casos especiales. 
El corlc que incluye el eje, cs decir, 
que corta los conos en dos mitades, de 
arriba abajo. proporciona dos li'neas 
rectas (las que sirvieron para gciicrar 
los conos). Se trata dc un caso especial 
de la hipcrboia. En segundo lugar. ha- 
cicndo un corte formando uu angulo 
de yO" con el eje y por entre los dos 
conos, lo que se obtiene es un punto. 
que, en realidad, cs an circulo con ra- 
dio cero. 

Las figuras que te adjuntamos te se- 
ran suficicntcs para coniprender como 
se obtienen todas cstas formas geo- 
metricas descritas. Si te animas, tu 
mismo puedes construirte tus conos y 
rcali/.ar los cortes en difcrcntcs direc- 
cioncs, con servirte tan solo dc una 
cuartilla de papel. Los dos conos son 
necesarios para obtener una parabola. 
ya que con un solo cono obtendras 
solo una parte del modclo. 
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DIBUJAR LAS CURVAS 

Todas las curvas sc gencran mc- 
diantc senciilas ecuaciones, algunas dc 
las cuales tii quizas ya conozcas. Los 
mandatos dc graficos de alta rcsolu- 
cidn para tu Commodore se obtienen 
mediantc el cartucho BASIC de Si- 
mon o la utilidad en codigo niaquina 
que ya te ofrccimos hacc vai'ios nu- 
meros. 

EL CIRCULO 

La ecuacion de un circulo esta dada 
por: 

X = A^cos e 

Y = A^^SIN 

donde A cs el radio, X, Y un punto dc 
la circunfereucia, y H (la letra i^rictia 
zeTa o thetu) el angulo formado por 
una linea fija. que habitualmente es el 
cjc X. 

Este primer progrania dibuja un cir- 
culo de radio A, y centro cl de la pan- 
talla: 

10 HIRES 0, liCOLOUR 1,1 

15 A=60 

20 C=ATN(l)/45 

30 XX-160+A:YY=100 

40 FOR TH = TO 360 STEP10 

50 X-A*COS(TH*C):Y=A^SIN 

(TH^C) 
60 LINEXX, YYa60-i-X,100-hY,l 
65 XX=160 + X:YY=100+Y 
70 NEXTTH 
80 GOTO 80 



LA ELIPSE 

La ecuacion de una elipse es muy si- 
milar a la del circulo. Para una elipsc 
con el eje mayor igual a 2A y el eje 
menor igual a 2B, la posicion de cual- 
quier punto esta dada por: 
X - A^X'OS B 
Y - B'SIN 6 



La forma mas o menos achatada de 
la elipse se determina por A y B. Cam- 
bia estas lineas: 

10 HIRES 0,1:COLOUR 1,1 

15 A-60 

16 B=30 

20 C=ATN[:i)/45 

30 XX-160+A:Yy-100 

40 FOR TH=0TO 360 STEP10 

50 X-A*COS(TH*C):Y-B^SIN 

(TH*C) 
60 LINE XX,YY,160+X,100-h 

Y,l 

65 XX = 160-hX;YY-100+Y 
70 NEXTTH 
80 GOTO 80 

LA PARABOLA 

El tamano dc la parabola depende 
del valor de una variable T, y las ecua- 
ciones son: 
X - T- 
Y - 2^T 




arc 
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El valor T puede variar desde inli- 
niLo hasla mciios infinite, pero pode- 
mos hacer una scccion dc parabola 
ba^tante asequible entrc T = 2 y T = 
-2. Estos valores dcbeii ajustarsc a es- 
cala en el programa mediante un fac- 
tor M para que quepan en una pan- 
talla dc TV. Este es el programa que 
dibuja la parabola; 

10 HIRES 0,1:COLOUR 

1,1 
15 M = 23 
20 C = ATN(l)/45 
30 XX-160 + M"4:YY-1 



-4*M 
40 FOR T--2 TO 2 STEP.0 
50 X=Mni2:Y-2*Mn 
60 LINE XX,YY,160+X,100 

Y,l 
55 XX-150+X:YY=100 + Y 
70 NEXTT 
80 GOTO 80 



LA HIPERBOLA 



La hipcrbola ticne por ecuacion: 
X = A/COS 9 

Y = B^^^TAN 9 

Una mitad dc la hipcrbola sc ob- 
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17 AN=60 
20 C = ATN(l)/45 
25 X=A:GOSUB H 
30 XX=160+XT:YY=ll 



-YT 



tiene cuando va de menos 90" a mas 
yO". y la olra initad cuando va dc m;is 
90" a mas 27(1". Teoricamcntc es po- 
sible emplear solo un bade en el pro- 
grama que lleve a 9 desde -90" hasta 
+27(1", pero tendriamos problemas en 
-90". 90" y 270" donde se divide per 
ccro, lo que cl ordenador no sabc^c- 
solvcr. Incluso para valorcs de 6 miiy 
proxiraos a estos, sc obtienen valores 
enormementc grandes. El programa 
que prescntamos cmplea. por cl!o. dos 
buclcs. Y nucvamentc, mediante el 
factor M se pucdc dibujar a la eseala 
deseada csla figura en ia pantalia: 

10 HIRES 0,1:COLOUR 1,1 

15 M = 50 

20 C = ATN(l)/45 

25 X=M/COS(-50*C):Y-M*TAN 

(-60*C) 
30 XX-267:YY=8 
40 FOR TH--60 TO 60 STEPS 
50 X=M/COS(TH*C):Y-M*TAN 

(TH*C) 
60 LINE XX,YY,160+X,100 + 

Y,l 
65 XX=160+X:YY=100 + Y 
70 NEXTTH 
75 X-!VI/COS(120"C):Y-M*TAN 

(120*0) 
80 XX=50:YY = 8 
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90 FOR TH-120TO 240STEP5 
100 X-M/COS(TH*C):Y=M"TAN 

(TH*C) 
110 L(NEXX,YY,160 + X,100+Y, 

1 
115 XX-160+X:YY=100+Y 
120 NEXTTH 
130 GOTO 130 



HAGAMOS GIRAR LAS CURVAS 

Los programas anteriores dibujaron 
las figuras de la manera mas scncilla 
posible con X dc eje horizontal e Y de 
cjc vertical. Pero esto no siempre es 
lo que conviene. pues puedc que nc- 
cesites dibujar las curvas formando un 
dcterminado angulo. La fig. I muestra 
lo que sucede a un punto del borde de 
una elipse cuando se le hace girar con 
un angulo dc AN grados. El punto P 
i^e mueve de la posicion X, Y a su 
iiLieva posicion XT. YT y sus nuevas 
coordenadas son: 
XT = X*COS AN - Y\SIN AN 
YT - X*SIN AN + Y*COS AN 

He aqui la rutina de la rotacion para 
tu ordenador: 

10 HIRES 0,1;COLOUR 1,1 

15 A=60 

16 B-30 



40 
50 

55 
60 



FOR TH-0TO 360 STEP10 

X-A*COSCTH*C):Y = B*SIN 

(TH*C) 

GOSUB 1000 

LINEXX,YY,160+XT, 

100+YT,1 
65 XX=160+XT:YY = 100+YT 
70 NEXTTH 
80 GOTO 80 
1000 XT-X*COS{AN*C)-Y*SIN 

(AN*C) 
1010 YT = Y*COS(AN*C)+X*SIN 

(AN*C) 
1020 RETURN 

En el programa que te dibuja la 
curva deberas introducir algunas mo- 
dificacioncs para que tc sirva la rutina 
dc la rotacion. Se debe cspecificar (li- 
nea 17) el angulo de rotacion AN, la 
posicion inicial ha de girar, y las lineas 
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dcbcn dibujarse segiin las nuevas 
coordcnadas XT c YT en lugar dc X 
e Y. Si lo dcficas. pucdcs alterar la li- 
nea 17 para que tc pcrmita intrndiiL'ir 
(INPUT) el angulo de giro. 

He aqui los cambios que dcbos ha- 
cer en el programa que dibuja la 
olipse. No olvides anadir la rutina de 
la rotacion: 

10 HIRES 0,1:COLOUR 1,1 

15 M-23 

17 AN=60 

20 C=ATN(l)/45 

28 X=M*4:Y=-MM:G0SUB 

1000 
30 XX=160+XT:YY-100+ 

YT 
40 FOR T=-2 TO 2 STEP. 05 
50 X=M*T12:Y = 2*Mn 
55 GOSUB 1000 
60 LINE XX,YY,160 + XT, 

10P + YT,1 
65 XX=160+XT:YY=100+YT 
70 NEXTT 



80 GOTO 80 

1000 XT=X^COS(AN"C)-Y*SIN 

(AN*C) 
1010 YT-Y^-COS(AN*C)+X*SIN 

(AN*C) 
1020 RETURN 

10 HIRES 0J:COLOUR 1,1 

15 M = 35 

17 AN = 60 

20 C=ATN(l)/45 

25 X-M/COS(-60*C):Y=M^TAN 

C-60*C) 
28 GOSUB 1000 
30 XX=160tXT:YY=100+YT 
40 FOR TH=-60 TO 60 STEPS 
50 X-M/COS(TH*C);Y=M*TAN 

(TH-^C) 
55 GOSUB 1000 
60 LINE XX,YY,160+XT, 

100+YT,1 
65 XX-160 + XT:YY=100 
70 NEXTTH 
75 X = M/COS(120"C):Y = i 



YT 



TAN 




(120*0) 
78 GOSUB 1000 
80 XX-INT(160 + XT):YY=INT 

(1004- YT) 
90 FOR TH = 120TO 240 

STEPS 
100 X-IVI/C0S(TH*C):Y=1V1*TAN 

(TH*G) 
105 GOSUB 1000 
110 LINEXX,YY,160 + XT, 

100+YT,1 
115 XX-160+XT:YY=100+YT 
120 NEXTTH 
130 GOTO 130 
1 



XT-X*COS(AN*C)-Y^SIN 

(AN*C) 
1010 YT-Y*G0SCAN"X)+X"S1N 

(AN^C) 
1(320 RETURN 



APLICACIOIMES PRACTICAS 

Todas cslas curvas pucdcu tener 
cierlas aplicacioiies praclicas. 

El ciT'culo tiene lantos usos que no 
es posible enumeraiios. La rueda es 
un ejcmplo dcmasiado trivial de un 
ci'rculo, y un cojinelc de bolas es lam- 
bien otro uso obvio de la csfera. Las 
esferas, o sus aproximaciones, se prc- 
sentan con frecuencia en la nalura- 
leza. Los ejemplos que se pueden po- 
ner van desdc las gotas de lluvia y los 
granos dc guisante hasta los planctas. 
Pero las esferas pocas veces son per- 
fectas debido al efeclo de la gravedad, 
el vicnlo u otras tuerzas. Un planeta 
que gira en torno a una estrella podria 
describir una circunfcrcncia, pero lo 
mas frccuente cs que deseriba una 
eiipse. 

Dna aplicaeidn praclica dc gran uti- 
lidad del circido es la que permite dc- 
tcrminar el mcnor eoste de transporte 
de una mercancia que puede com- 
prar'^e en uno de dos puestos de dis- 
tribucion, Por ejcmplo, supongamos 
que tii deseas eomprar un ordenador 
que se vcnde tanto en la easa A c(mtio 
en la B v que distan entre si 3(H) ki- 
lometros. La casa A envia sus orde- 
nadorcs a traves dc medios de trans- 
porte espccialcs y a un precio de 3 
ptas. por km, mientras que la casa B 
empleasu propia furgoncla. que vienc 
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a salir a 1,5 pUis./km. Es inmedialo 
marcar ci area en el mapa dc donde se 
pucdc ohtener el ordenador dcscado. 
al menor precio dc transports, sea dc 
la casa A o de !a B. La idea es marcar 
todos los piintos donde ambos costes 
son igualcs. y unirlos por una linca. Lo 
que habras hccho es inarcar los piintos 
en que la distancia hasta B cs cl doble 
que la distancia hasta A. 

Un punto cstara en la linca cntre A 
y B, a 100 km de A y 2{K) km dc B [ya 
que 100 X 3 cs igual que 201) x 1,5). 
Giro punto csta en la misma ilnea a 
300 km de A pero en la direccicin 
opuesta a B (300 x 3 cs igual que 600 
X 1,5). Si tu imes todos estos puntos 
obtendras un circulo de radio 200 km. 
conforme sc muestra en la fig. 2. Si re- 
sides dentro del circulo es mas barato 
comprarle a A, y si vivc^ fuera de el 
cs mas barato comprarle a B. 

La elipse tiene tambien sus usos 
practices. Si proyectas la sombra dc 
una elipse sobre una superficie plana 
es posible mantcner la elipse dc tal 



mancra inclinada que su sonibra de un 
cfrculo. Esta propiedad se utiliza en 
las valvulas de los canales circularcs, 
donde se utiliza una alcla cliptica para 
controlar cl gas o el fliiido que circula. 
La aleta se aiusta a la tubcria iuslo 
cuando alcanza el angulo adccuado y 
de esta forma cicrra la tubei'ia. 

La parabola describe, como sabcs. 
la trayccloria dc un proyectil dispa- 
rado al aire. Los cometas pucden via- 
jar en forma parabolica alredcdor del 
sol. 

Una propiedad muy util dc la pa- 
rabola es que los rayos de luz, calor u 
otro cucrpo paralcio al cje sc rcflcjan 
a traves del foco. Esta propiedad es 
valida en ambos sentidos, por lo que 
una bombilla eiectrica colocada en cl 
foco dara un haz dc luz paralcio, comci 
el que se usa en los faros de los au- 
tomoviles. En la otra direccion. los ra- 
yos paralclos que proccden del sol se 
pueden concentrar en el foco para ob- 
tcncr altisimas teiuperaturas como 
ocurre en los hornos solarcs. 




En la practica. los reflcctores em- 
plcados para talcs prop(3sitos son pa- 
raholoides tridimensionalcs. Otro uso 
de los paraboloides se halla en los dis- 
cos que sirven de anlena de radar o de 
radio, donde la antcna sc coloca en el 
foco y puede emplcarse tanto para 
transmitir como para rccibir scnalcs. 

Una iniportanto caractcristica dc la 
bipcrbtjla consistc en cl hccln) dc cstar 
formada dc dos partes. Y un uso prac- 
tico de cllo esta en cl sistema de radar 
de los barcos. El sistema se basa en 
dos estacioncs de radar. Una cstacion 
transmite senales nonualmente. y la 
otra solo se limita a rctransmitir las se- 
nales recibidas por la primera esta- 
ciOTi. CualquiCr barco que sc hallc en 
las proximidades rccJbc ambas scriales 
y anota el tiempo que media entre sus 
llegadas. Si continua moviendose de 
lai modo que conscrva esta diferencia 
de tiempo constante seguira una tra- 
yccloria hiperbolica como la que nitis- 
Iramos en la fig. 3. Si el barco recibc 
tambien las senales de otras dos esta- 
cioncs l\c radar y de nuevo ti>iiia nola 
de la diferencia de tiempo hara posible 
una segunda hipcrbola y la intcrscc- 
ci()n dc ainbas ofrccer;i la posicion del 
barco. No puede haber confusion so- 
bre la rama dc la hipcrbola en que se 
encuentra el barct) puesto que puccle 
detcctarsc la scnat t.|uc llega en pruiicr 
liigar. 

ALGUNOS DETALLES 

Los programas que te ofrecemos en 

cstc articulo han sido pensados para 
una perfecta utilizacton de la pantalla 
de tclc\'isi6n. 

C\iando los uses en tus propios pro- 
gramas, habras de cambiar cl factor M 
dc incrcmcnto, para t|ue las curvas se 
dibujen al tamano que descas. 

Dcbcs tcncr lamhicn cuidado con la 
parabola que gira o la hiperbtila cer- 
ciorandote de que los cabos de las cur- 
vas cntrcn en la panlalla. Para cvilar 
L|ue se salgan, ahera los finales dc los 
bucles FOR ... NEXT en la linea 40 
del programa de la parabola y las li- 
neas 40 y 90 del programa dc la hi- 
pcrbola. Para cncontrar los Ifmites 
exactos deberas rccurrir al metodo de 
ensavo v error. 
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LEJOS DEL 
MUNDANAL RUIDO 



APUNTAR AL OBJETIVO 



DISTANCIAS 



LAVUELTAAL MUNDO 



MANIOBRAS EN EL ESPACIO 



MOVIMIENTOSPLANETARIOS 



Uno de los suenos del hombre ha sido 
siempre alcanzar las estrellas. Este ar- 
ticulo, complemento del que dedicamos 
a los objetos voladores, va a enseiiarle a 
tu micro como debe conseguir tal obje- 
tivo. 

En cl articulo en que tratamos de 
trayectoriiis, publicaUo en INPUT 
COMMODORE EXTRA VERANO 
86, pudiste vcr como se puede dividir 
la velocidad de un proyectil en un 
componente vertical y otro horizontal. 
Pudiste ver lambien como sc puede 
modificar el alcance de un proyectil 
caiiibiando el angulo de elevacion y la 
velocidad a Ea que se disparaba. Este 
articulo reanuda en este punto el es- 
tudio de los cuerpos moviles. Anali- 
zara el movimiento de los objetos bajo 
la ley de gravedad, y te va a pcrmitir 
conocer su trayectoria desde puntos 
cercanos a la snperficie terrestre hasta 
muy lejanos, hasta quedar en orbita. 

Antes de lanzarte al espacio, cntra 
el primer prognima, que te demuestra 
lo litil que nos va a resultar saber algo 
sobre trayectorias para cuando quieras 
haccr que tus juegos de proyectiles 
sean mas interesantes y dificiles. Para 
tu Commodore 64 necesitas ajustar el 
modo graficos en alta resolucion, en 



todos los programas excepto el pri- 
mero. Puedes servirte del cartucho dc 
BASIC de Simon o bien cntrar pri- 
mero la utilidad de alta resolucion en 
codigo maquina que tc ofrecimos en 
esta revista. Si usas esta ultima debe- 
ras poner un prefijo a todos los man- 
dates de alia resolucion. 

99 GOSUB 13000 

100 A%-RND(1)*8: 
B%-RND(1)*8+31: C%=R 
ND(l)*8 + 2:CT-0 

110 CT = CT4-1 
115 PRINT 

■[SHIFT+CLR/HOME]':SYS 






265 


832 




120 GOSUB 9000 


270 


130 GOSUB 7000 




140 GET l$:IF l$<>CHR$(13) 




THEN 140 


273 


150 GOSUB 9500 




160 PRINT '[SHIFTtCLR/HOME]' 


275 


170 INPUT TCLR/HOME][CRSR 




ABAJOIANGULO DE DISPA 




RO'; A2 


280 


180 IF A2<0 OR A2>-90 


290 


THEN170 


310 


190 INPUT TCLR/H0IV1E][ 




3*CRSR ABAJOIVELOCIDAD 


320 



IF E-0 THEN190 

GOSUB 9000 

AN-A2*(EXEC/180):X3-8 

X=X3+8^{A%+1) 

H-8+X3*TANCAN)-X3 t 2/( 

Et 2*C0S(AN T2) 

Y=191-H:G0SUB 

10000:FR-H/2 + 20:WF = 3 

3;G0SUB 11000 

X3-X3 + 7 

BY-24576 + ((Y-l) AND 

248)*40 + (X AND 504) + ({Y- 

1) AND 7) 

PO-{PEEK(BY) AND 2] (7-X 

AND 7)) 

IFX<311 AND H> = 8 AND 

H<183 AND PO = 

THEN220 

HlT-ABS(X-(B%*8+4))<6 

AND H<24 

IF PO>0 OR HIT 

THENFR = 20: WF=129: 

GOSUB 11000 

FOR D=l TO 2000:NEXT 

GOSUB 9500 

IFCT<11 AND NOT HIT 

THEN110 

PRINT TSHIFT+GLK/HOME]' 
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322 FOR D-1 TO 99:NEXT 
325 GOSUB 9500 
330 IF HITTHENPRINT 'BUEN 
DISPARO !!!':PRINT :PRINT 
'LO CONSEGUISTE EN'CT 
340 IF NOT HIT THEN PRINT 

'FALLASTE !!]' 
350 PRINT; PRINT 'INTENTALO 

DE NUEVO ..,' 
360 FOR D = l TO 4000:NEXT 
370 GOTO 100 

7000 V=1:F0R l=31936+A%*8 
TO 31936 + A%*8 + 7: 
POKE \y-y^V^2:NEXJ 
FOR l-31936 + B%'^8 TO 
31936 + B%*8 + 7:P0KE 
l,255:NEXT 
FOR X-1 TOC%:FOR Y-1 
TOC%:BA-32256 + (13 + 
X)*8-Y^320 

FOR l = BATO BA+7:P0KE 
l,63:NEXT 
NEXT :NEXT 
RETURN 

POKE 56576, 150:POKE 5 
3265,187:P0KE 53272, 
29;RETURN 
POKE 56576, 151:P0KE 
53265, 27:P0KE 53272, 
21:RETURN 
BY-24576 + (Y AND 
248)M0+(X AND 504) + ( 
Y AND 7):P0KE BY,PE 
EK(BY) OR 2t(7-(X AND 
7)) 

RETURN 
POKE 54296,10 
POKE 54278,251 
POKE 54276, WF 
POKE 54273, FR 
FOR D-1 TO 20:NEXT 
POKE 54276, WF-1 
RETURN 

DATA 169,0,133,251, 
169,96,133,252,169,0, 
168,145,251,200,208, 
251 

12010 DATA 230,252,165,252, 
201,128,208,240 

12020 DATA 162,0,169,7,157, 
0,68,157,0,69,157,0,7 
0,157,232,70,232,208 



7010 



7020 



7030 

7040 
7099 
9000 



9500 



10010 
11000 
11010 
11020 
11030 
11035 
11040 
11050 
12 




,241,96 
13000 FOR Z-832 TO 

875:READX:P0KEZ, 
X:NEXTZ:RETURN 

El programa pide que entres la ve- 
locidad de despeguc y el angulo de 
elevacion para obtener un disparo que 
va desde la parte inferior izquierda de 
la pantalla hasla un objetivo que se 
halle en la parte inferior derecha. Puc- 
des hacer mas dificil el juego colo- 
cando el punto de disparo y el objetivo 
a distancias alcatorias {random) para 
cada serie de intentos, y, todavia mas 
dificil, instalando una barrera de ta- 
mano aleatorio en un punto tambien 
aleatorio entrc los puntos de partida y 
de llcgada. Cualquiera de ias Irayec- 
torias que escojas habra de tener la su- 
ficiente altura corao para superar la 
barrera al efectuarse el disparo. 



DISTANCIAS 

Estc programa es un buen ejemplo 
de cdmo el cerebro humano cmitc sus 
juicios. Con solo mirar las posiciones 



del fusil, del obstaculo y del objetivo, 
se puede estitnar ia veiocidad y cl an- 
gulo requeridos para obtcncr una 
curva que hacc que el proyectil se 
eleve por encima del obstaculo y dc en 
toda la diana. Con un poco dc prac- 
tica. vas a sorprender por la cantidad 
de proyectiles que consigues que den 
en el objetivo. 

Pero medir tales distanciaj; dc mo- 
mento te resultara un tanlco con mu- 
chos fallos, por carcccr dc una vista la- 
teral clara. Lo que puede ocnrrir es 
que sepas la distancia aproximada del 
objetivo, y tengas que calcular el an- 
gulo y la veiocidad adecuadas. Anali- 
zando si e! disparo te ha quedado 
corto demasiado largo, progrcsiva- 
mente haras calculos mas ajustados. 

El siguiente programa muestra 
como hacer esto. Despeja dc la me- 
moria el primer programa (CLEAR), 
pero una vez que lo has guardado 
(SAVE) si es que dcscas volverlo a 
usar. Entra ahora estas lineas que si- 
guen, Ajusta primero, no lo olvides, el 
cartucho de BASIC de Simon o la ru- 
tina en codigo maquina. 
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20 PRINT '[SHIFT+CLR 

/HOMEIVELOCIDAD DE 

DISPARO (l-ll 

M/S)':INPUT SP 
30 IFSP<1 OR SP>li 

THEN20 
40 PRINT 

TSHIFT+CLR/HOMEJANGULO 

DE DiSPARO (1-90 

DEG)':INPUT A 
50 IF A<1 OR A>89 THEN40 
60 A-A=^(EXEC/180) 
70 R = SP*SP*SIN(2*A)/10 
80 PRINT 

TSHIFT+/CLR/HOMEJEL 

ALCANCE ESMNT (R + .5);'M 

ETROS' 
90 PRINT TCRSR ABAJOJPULSA 

UNATECLA PARA SEGUIR (- 

0- PARA SALIR)' 
100 GETD$:IFD$ = " THEN100 
110 IF D$<>'0' THEN RUN 

Estc programa te permite introducir 
(INPUT) los valores de la velocidad 
inicial (linea 20) v del anaido dc cle- 



vacion (linea 411). La Iinea 70 calcula 
scgLiidamcnte y visualiza el alcance 
que daran al proyectil estos valores. 
La variable R es d alcance {Range). 
SP la velocidad {SFeed), A es el an- 
gulo. y el 10 cs el valor aproximado de 
la gravedad proximos a ia superficie 
terrestre (en realidad cs 9.81). 

El efecto de la presidn del aire no se 
tiene en cuenla, aunqLie no dcbes ol- 
vidaria en pruebas que simulen la rea- 
lidad. La velocidad dc disparo mas 
alta que posce un canon supera los 
2.000 m/s. Con clla se ban disparado 
objelos fuera de la Tierra en mision 
investigadora. Los objetos alcanzan 
una altura de ISO km. pero sin la pre- 
sion del aire la altura podn'a llegar a 
ser de unos 250 km. 

LAVUELTA ALMUNDO 

Si el objeto es disparado con un an- 
gulo que lo cleve por encima de la Tie- 
rra, cl efecto de la prcsion es menor. 
pero si dcscas un alcance aun mayor, 
habras de tener en cucnta la curvatura 
dc nuestro planeta. Uno de los pri- 
meros cientificos que se plantearon el 
problema del maximo alcance de un 
proyectil que se eleva sobre la super- 
ficie de la Tierra fue el britanico sir 
Isaac Newton. 

Newton imagino un podcroso fusil 
en la cima de una montana lo suficien- 
temente alta como para estar fuera de 
la aimosfera terrestre. Los disparos 
hechos a una velocidad cada vez ma- 
yor Uegarian cada vez mas lejos si la 
Tierra fuera plana. Pero dado que esta 
es redonda, la superficie se separa del 
proyectil. con lo que pucdc alcanzar 
una distancia mayor que si nuestro 
planeta fuera piano. 

Newton argumcntaba ademas que 
se podria entonces disparar un pro- 
vectil a tanla velocidad que nunca ca- 
vera en tierra, sino que le alcanzara a 
el por la espalda. Cuando el proyectil 
fuera a cacr sobre la superficie de la 
Tierra, esta se curvaria dc tal manera 
que el proyectil qucdaria «sin tierra» 
para sienipre: estaria dando vueltas al 
mundo. 

Una vez que cualquier objeto cs- 
capa de la gravedad del planeta, su ve- 
locidad y distancia respecto del pla- 
neta detcrminan luego el tipo dc 6r- 



bita que seguira: circular o eliptjca. 

Para que se puedan hacer prediccio- 
nes y mcdidas sobre un planeta o sa- 
telite. debe conocerse su drbita con 
precision: hay que saber las caracte- 
n'sticas exactas de la elipse. El grado 
de «achatamiento» de una elipse se 
dcnomina excentricidad (E). Esta 
mide la proporcion entre la largura y 
la anchura de la elipse. Si E es igual a 
I, la elipse es igual dc ancha que de 
larga. o sea, es una circunferencia. 

Entra y ejecuta (RUN) cl siguiente 
programa para ver el efecto obtenido 
al variar E con valores que van de cero 
y pico a mayores que uno: 

30 PRINT '[SHIFT+CLR/HOMEIE 

XCENTRICIDAD (0.1-1.9)':l 

NPUT E 
40 IF E<.1 OR E>1.9THEN30 
50 HIRES 0,1:X-160:Y=100- 

E*50 
60 FOR A-0 TO 2*EXEC +.2 

STEP.l 
70 LINEX,Y,160 + *SIN(A),100-( 

E*5rC0S(A)),l 
80 X-160+80*SIN(A): 

Y-100-(E*50*COS(A)):NEX 

T A 
90 FOR Z = l TO 2000:NEXT 

Z:NRM :RUN 

Este programa establece un bucle 
entre las lineas 30 y 110 para dibujar 
elipses para las cualcs tu introduces 
(INPUT) el valor de E en la linea 30. 
Las curvas se dibujan mediante un 
FOR ... NEXT (lineas 60 a 80) para 
que dibujen DRAW entre cada punto. 

Hntra valores dc E dentro del inter- 
valo que tc muestra la panlalla y com- 
prueba como E = 1 da una circunfe- 
rencia, E = 0, ... te da elipses apia- 
nadas, y E > 1 te proporciona elipses 
como huevos de pic. Notaras, sin em- 
bargo, que en tu Commodore, E = 
1,5 cs muy parccida a una circunfe- 
rencia. Conclusion: toda orbita no es 
mas que una elipse con su prcciso valor 
de E. 

MANIOBRAS EN EL ESPACIO 

Una vez en orbita. un satelite o 
nave cspacial no nccesita energia al- 
guna paru mantenerse en ella, dado 
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que su caida es libre. Cualquicr uso de 
cohetey lo desplazara a una orhita su- 
perior o inferior. 

Cuanto menor sea el radio de la or- 
bita. mas rapidamcnte se movera el 
objeto. Entra el siguienle programa 
para coinprobarlo. 

10 HIRES 0,1 

20 POKE 54296, 15:P0KE 

54277,64 
40 R-30:RT=INT 

(RND(1)*70)+10:IFABS(R-R 
T)<20 THEN4p) 
50 TEXT 157, 97, '*M, 1,1 
60 S-.i:A-0:AT=INT 

{RND(1)M0)+1:F=0 
80 A=A+S 
95 LT-AT 

100 AT=AT+.l*SQR((40/RT)t3) 
110 GETA$:IF A$='[CRSR 

DCHA.]' AND R<95 THENF- 
F+1:R-R+1:S-S*SQR(((R 
-1)/R)T3) 
120 IFA$-'i:CRSR ABAJO]' AND 
R>8THENF=F+1:R = R-1:S 

= S*SQR(((R+1)/R) t 3) 
130 X-R*SIN(A):Y=R*COS[A) 
140 XT-RrSIN(AT):YT=RT* COS 

(AT) 
150 PLOT 160+X,100-Y,1 
160 POKE 54276, 17:P0KE 

54273, 1 + R:F0R 1=\ TO 

5:NEXTZ 
165 POKE 54276, 0:POKE 

54273,0 
170 PLOT 160+XT,100-YT,1 
175 PLOT 160+RT*SIN(LT), 100- 

RT"COS(LT),0 
180 IFABS(X-XT)>3 OR ABS(Y- 

YT)>3 THEN80 
190 NRM :PRINT 

'tSHIFT+CLR/HOME]HAS 

USADO';F;'ENCENDIDOS' 

Ejecutalo(RUN) y observaras laes- 
lela de un aparato en orbita y tambien 
el satelitc objctivo (sin estcla). [ntenla 
ajustar la orbita de tu aparato con la 
del satelitc mcdiante las ted as de fle- 
chas de cursor arriba y cursor abajo. 
La linea 40 establcce el radio R de la 
orbita del aparato a valor 200 y el ra- 
dio del objetivo a un valor random. La 
Imea 60 cstablece luego las varia- 

24 INPUT 



bles para las posiciones de partida. 

El punto crucial del programa esta 
en la linea 100, que se inspira en otra 
importante ley fisica: la raiz cuadrada 
del tiempo que se tarda en hacer una 
orbita entera, dividida por el cubo del 
radio es constante. Es lo que explica 
SQR y la potencia a 3 de esta linea. 

Para aumentar o disminuir cl ta- 
mafio de la orbita (hacer maniobras) 
deberas utilizar las flechas de cursor 
arriba y abajo. Recuerda que cuanto 
mas pequenas son las orbitas a mas vc- 
locidad iras. 

MOVIMIENTO PLANETARIO 

En realidad. las maniobras de salida 
y entrada a una orbita son mucho mas 



laboriosas que lo que el programa an- 
terior pueda hacer pensar. Es muy fa- 
cil trasladarse de una orbita eliptica a 
otra, pero la inmensidad del espacio 
hacc que sea dificil localizar un obje- 
tivo. Y para complicar las cosas inter- 
viene de nuevo el efecto de la grave- 
dad. La gravedad del Sol, de la Luna 
y de los planetas ejerce su influencia 
sobre la trayectoria del aparato espa- 
cial. 

En la practica las herramientas de 
los astronautas son precisamente unos 
poderosos ordcnadores. Estos se en- 
cargan de controlar la velocidad, el 
tiempo y la direccion del enceudido de 
los cohctes para mantener la nave en 
la trayectoria dcscada. 

Una vez situada en la trayectoria co- 
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rrecta, la nave queda sometida al in- 
flujo del campo gravitatorio del sis- 
tema solar. Solo son necesarias unas 
pocas correcciones en meses y anos dc 
viaje: justo cuando los pianetas y el 
Sol se inlerponen ano tras ano. El si- 
guicnte programa va a permitirte ob- 
servar los pianetas en movimiento: 

10 PRINT 

'[SHIFT+CLR/H0ME1[CTRL+1]' 

:NRM::COLOUR 0,1 
20 DIM D(8),P(8)J(8),A(8), 

B(8) 
30 FORT=0TO8;READ D(T), 

P(T):NEXT T 
40 PRINT 

TSHIFT+CLR/HOMEICUANTOS 



PIANETAS (1-9)':INPUT 

S 
50 IF S<1 OR S.^9 THEN 

40 
60 S-S-1:SC-D(S)/90:T-P{S)/ 

75 
70 PRINT 

TSHIFT + CLR/HOMEIEXISTEN 

';INT (T);'DIAS':PRINT 'DE 

INTERVALO ENTRE CADA 

PUNTO' 
75 PRINT '[CRSR ABAJOIPULSA 

-ESPACIO- PARA 

SEGUIR' 
75 GET A$:IF A$<>' ' THEN 

76 
80 HIRES 1,0 




230 

240 
245 
250 
260 



110 G-EXEC/180 

120 FOR Q-0TO S 

130 R-D(Q)/SC;A=R:B=R:E = 0; 

P-P(Q)/T 
140 IFQ-0 

THENE = .2:B=A*.98 
150 IFQ-8 

THENE = .26:B=A*.96 
155 IFS>3 AND Q<4THEN 

245 
160 IF P>3 THENP-INT (P+.5) 
170 l(Q) = l(Q)+360/P 
180 Y-G*l(Q):X-mT 

(A*{COS(Y)-E));Y=INT (B*S 

IN(Y)) 
200 TEXT 157 + A(Q),97-B(Q), 

TSHIFT+W]', 0,1,1 
220 PLOT 160+A(Q),100-B(Q), 

1 
225 TEXT 157,97,'[SHIFT+Q],1, 

1,1 

TEXT 157+X,97-Y, 

'[SHIFT+W]M,1,1 

A(Q)-X:B(Q)-Y 

NEXTQ 

M-M+T 

GET A$:IF A$-' ' THEN 

RUN 
270 GOTO 120 
280 DATA 58,88,108,225,150, 

365,228,687 
290 DATA 778,4333,1427, 

10759,2870, 

30685 
300 DATA 4497,60190,5969, 

90741 
Cuando ejecutes (RUN) este pro- 
grama, deberas entrar un valor para 
seleccionar el niimero de pianetas que 
deseas observar. Cuanto mayor sea el 
numero (entre el 1 y el 9), mas com- 
plicadas imagenes obtendras. Para sa- 
ber que pianetas estas observando, re- 
cuerda que el mas proximo al Sol es 
Mercurio, despues le sigue Venus, y 
luego la Tierra, Marte, Jupiter, Sa- 
turro, Urano, Neptuno y Pluldn. Eje- 
cuta el programa con valores diferen- 
tes y observa que las orbitas dc dos 
pianetas (Mercurio y Pluton) son cla- 
ramente elipticas. De hecho todas son 
elipticas, solo que algunas tienen una 
excentricidad muy pequena y casi se 
asimilan a circunferencias, 

INPUT 25 
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UN AIRE DE MISTERIO 



MAQUINAINTELIGENTE 



PROCEDIMIENTOS RECURSIVOS 



TRANSFERENCIA DE PARAMETROS 



DETECCiON DEERRORES 



Si alguno de tus programas posee sub- 
rutinasa las que se llama repetidamente, 
puedes encontrarte con un caso ade- 
ciiado para utilizar programacion re- 
cursi>a. Avtrigua como. 

Esenci;ilmente. programar un or- 
denador cs un ejercicio de resolucion 
de problemas. A medida que tu ha- 
bilidad se desarrolle. podras dartc 
cuenta de que la mayor parte dc pro- 
blemas pueden rcsolverse si se dividen 
en problemas menores y mas simples. 
Sin embargo, eventualmente Uegaras 
a una de las pesadillas de los pro^ra- 
madores, en la que un intento de re- 
solver un problema le Ileva solamente 
a un nuevo problema. la solucion del 
cual te conduce a otro problema, y asi 
sucesivamentc. 

Puedes considerar que se trata de 
un panto lo bastantc delicado como 
para hacer un alto e ir en busca de un 
problema distinto. pero recuerda que 
tu micro no se ve afectado por c^a 
clasc de barrera mental que hace que 
un cerebro humano aproveche la me- 
nor oportunidad para salir de la pe- 
sadilla. De hecho, hay una tecnica de 
programacion avanzada que sirve para 
resolver ciertos tipos de problemas 
que pueden reducirse a pro- 
blemas dentro de proble- 
mas. Dicha tecnica se 
denomina recursion. 



UN AIRE DE MISTERIO 

Generalmente, los programadores 
incxpcrtos ven la recursion como un 
lema altamcntc complicado y miste- 
rioso. Eso es a causa de que las tec- 
nicas de programacion utiliza- 
das pueden ser cxtremada- 
mente dificiles de segutr a par- 
tir del listado. AI- 
gunas veces, ni si- 
quiera un diagrama 
de flujo muestra 
claramente lo que 
sucede realmente. 
No obstante, el prin- 
cipio no es difi'cil de 
captar. 

En terminos ma- 
tematicos, «recur- 
si6n» es la repeti- 
cion de una opera- 
cidn determinada. 
Sin embargo, 
esta defini- 
cidnno 
es 





estrictamente aplicable a la progra- 
macion, en donde tiene un significado 
mas preciso. En esencia, recursion es 
una Uamada primaria a una subrutina 
o procedimiento con un conjunto de 
parametros iniciales. A continuacidn, 
la subrutina o procedimiento se llama 
a SI mismo repctidamente. actuali- 
zando los parametros en cada Ua- 
mada, hasta que se ha llevado a cabo 
una determinada tarea. 

MAQUINAINTELIGENTE 

Para ayudarte a comprender e) con- 
cepto basico de recursion, piensa en 
como un conductor pucde viajar desde 
el iugar A al lugar B, a traves de una 
gran ciudad con la que no esta fami- 



liarizado. El conductor dispone de 
mapas con las calles de ia ciudad, pero 
observa que viajar directamente de A 
a B es demasiado dificil. Por tanto, de- 
cide descomponer el problema en un 
cierto niimero de problemas similares 
(pero mucho mas simples), cada uno 
de los cuales puede irse resolviendo 
sucesivamente. El mode mas sencillo 
de hacerlo consiste en seieccionar un 
lugar (C), que se encuentre entre A y 

B. ydecidir como viajar desde A hasta 

C. A continuacidn conduce su coche 
hasta C. 

Una vez en C, el conductor mira si 
puede viajar directamente desde C 
hasta B. Si es posible, lo hace. En caso 
contrario, repite el proceso anterior 



eiigiendo un nuevo lugar (D). entre C 
y B. Este proceso se repite hasta que 
el conductor llega a B, su punto dc 
destino. 

Este ejempio simple demuestra ade- 
cuadamente los principios de la recur- 
sion tal como se aplican a la progra- 
macidn de ordenadores. La solucidn 
de un problema dificil se describe en 
terminos de problemas mas sencillos 
(o mas cortos). 

A medida que se alcanza cada sub- 
tarca (o nivel) de ia recursion, resulta 
a menudo necesario aimacenar la in- 
formacion relativa a la posicion ante- 
rior, alcanzada en el nivel precedente, 
para volver mas adelante a ella. A me- 
dida que se entra en cada nivel, se ob- 
tiene un conjunto de parametros dis- 
tintos y se efectua una comprobacion 
para determinar si se ha completado la 
tarea completa. Sin dicha comproba- 
cion, el proceso no terminaria nunca. 
Para ver el metodo utilizado, intro- 
duce y ejecuta el primer programa, 
que imprime los enteros positives 
desde un valor de entrada (N) hasta 
uno. 

PRINT '[SHIFT+CLR/HOME][ 
CRSR ABAJO]>[CRSR DCH 
A. ][CTRL + 9]N. ENTEROS 
POSITIVOS DESDE N HASTA 1' 
PRINT :PRINTTCRSR 
ABAJO][ 6 
ESPACIOSIENTRAR EL 
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VALOR ENTERO QUE DESEAS 

DESCONTAR (1-22! 
35 INPUT N:N-INT(N);IF N<1 

OR N>22 THENEND 
40 GOSUB 80 
50 GOTO 30 
80 IF N-0 THENRETURN 

90 PRINT N'/; 

100 N-N-1:G0SUB 80 

110 RETURN 

El programa te permite introducir el 
valor del mayor entero a partir del 
cual deseas contar. Si introduces un 
valor menor de uno, se detiene el pro- 
grama. Los valorcs superiores a 22 
tambien detienen el prograina porque 
el micro solo pucde recordar 23 saltos 
a una subrutina. La linea 40 llama la 
subrutina recursiva, cuya primera Ii- 
nea compruebu si 
se ha completado 
!a tarea entera. 

Dicha compro- 
bacion es crucial 
para terminar las 
liamadas recursi- 
vas. Se entra en el 
primer nivel dc re- 
cursion con el va- 
lor de N que has 
especificado. 

Dicho valor se imprime en la linea 
90. Se entra en cl segundo nivel en la 
linea 100. que reduce el valor de N en 
uno y llama !a subrutina otra vez con 
el nuevo valor de N. El programa con- 
tinua el bucle entre las lineas 80 y 100. 
imprimiendo sucesivairicnte cada en- 
tero. 

Cuando M se reduce a (en la linea 
100), el programa bifurca del modo 
habitual a la linea 80, en donde csta 
vcz debera obedecer la inslruccion 
RETURN. Esto provoca un retorno 
desde la subrutina llamada en la linea 
100. La siguiente instruccion se en- 
cuentra en la linea 110, que provoca 
un retorno desde la subrutina llamada 
en la linea 40. La instruccion siguiente 
(linea 50} ejccuta de nuevo el pro- 
grama . 

Observa que el programa termina 
con un valor de N ^ U. scgun la hnca 
100, pcro que la linea 90 no imprime 
nunca dicho valor. Para restaurar N al 



ultimo valor impreso. puedes teclear -^^ ^^l^ ] [J . i Ml ' 1 ^ t J J 

N = N -K 1 como linea 105. A conti-X TT7 r^ jJJ c=ba * '-LlU^^_ ^.^ 

nuacion, N tomara el ultimo valor im-(Ji iAl", rTi J I I 

preso. 



PROCEDIMIENTOS RECURSIVOS 

10 DIM N(34),A(34) 
30 PRINT TSHIFT+CLR/HOMEl 
CRSR ABAJO]>[CRSR DCH 




A.][CTRL-l-9][ 
]CALCULODE[ 
]':PRINT T 2- 
][CTRL-h9][ 2 
ACTORIALES[ 



2 ESPACIOS 

3 ESPACIOS 
XRSR DOHA. 

ESPACIOSIF 
2 ESPACIOS 



40 

45 
50 

60 

70 
80 
90 

15' 
16 
17 



][CRSR ABAJOJ' 
PRINT 'ENTRAR EL N. 
FACTORIAL DESEADO (1-33)' 
INPUT NU 

IF NU>33 OR NUoINT 
(NU) OR NU<0THENRUN 
IF NU = 0THENPRINT 
'[SHIFT+CLR/HOME]':END 
LE-:1(LE)-NU:AN = NU 
GOSUB 150 
PRINT AN'![CRSR 
DCHA.] = [CRSR DCHA.]';A(1) 
TCRSR ABAJ0r:GOTO 40 
) IF N(LE) = THENA(LE)-1: 

GOTO 180 
) LE=LE+1:N(LE)=N(LE-1)- 

1;G0SUB 150 
5 LE-LE-1:A(LE)-A(LE+1)" 




N(LE) 
180 RETURN 

Ejecnta el programa e introduce un 
valor en respuesta al mensaje. El pro- 
grama calcula e imprime el factorial 
del niimcro que hayas introducido, es 
decir el praduclo de cada entero desde 
uno hasta cl propio nCimero inclusive. 
For ejcmplo. 5 factorial (que se es- 
cribe 5!) es 1 X 2 X 3 X 4 X 5 = 120. 
Los calculos factoriales se rcquieren a 
menudo en ciertas apUcaciones esta- 
disticas. por lo que seria util un me- 



INPUT 29 



todo simple de gcncrarlos. Pera el inc- 
todo mejor depende del Icnguaje que 
utilices. 

El programa dimensiona variables 
(linea 10) en numcro SLificiente para 
completar la tarea. Dichas vaHablcs 
de matriz rescrvan cspacio de memo- 
ria para su uso exclusivo, utilizando cl 
nivel de recursion (LH) como subin- 
dice de la variable que se cstc utili- 
zando en ese momcnto, N (LE). 

Esencialmcnte, el programa cm- 
pieza en la li'nca 70, en donde el nivel 
se pone en uno. Ademas, a qui se 
asigna cl nuniero que hayas introdu- 
cido, por ejempio cinco, a N (1) y a 
AN (la variable que acumula la rcs- 
puesta). A continuacidn, la li'nca 8(J 
llama al primer nivel dc recursion. La 
primera iinca dc la rutina de recurs-ion 



(linea 150) comprueba si sc ha llegado 
al final del prablema. cuando N (LE) 
= 0. Pero, por el momenlo, N (LE) es 
cinco. por lo que el control pasa a la 
linea 160. Esta incrcnienta cl nivel (a 
dos). pone en 4 cl numero actual, 
luego llama de nuevo la rutina recur- 
siva y asi sucesivaniente. Cuando la li- 
nea 160 incrementa el nivel a seis y de- 
eremeiita el numero actual a cero, la 
Ifnea 150 deteela que N (6) cs cero. 
por lo que el elemento seis de la ma- 
triz A se pone a uno y la iinca ISO cn- 
via un RETURN al'lmal de la Ifnea 
160. Ahora el control pasa a la linea 
170, en donde el nivel se decremcnta 
a cinco y A (5) toma un valor igual a 
A (6) veces N (5). Esto hacc que A (5) 
sea igual a 1 x 1 = 1. Ahora la Iinca 
1 SO devuelve dc nuevo el control al fi- 
nal de la linea 150 en donde, esta vez, 
A (4) foma un valor igual a A (5) vo- 
ces N (4). Por lo que A (4) es igual a 
uno (calculado antes) por 2. Eiste bu- 
clc se continiia tantas veces conio se 
haya llamado cl GOSUB de la Iinca 
160. Cuando se completa el bucle. f.E 



es igual a uno y el ultimo RETURN 
va a la linea SO. La instruccion si- 
guientc (li'nea 90) imprime el resul- 
tado, 120. 

DETECCION DE ERRORES 

Para mantener tu programa dcntro 
de los limites del micro y evitar catas- 
trofcs, debes saber como se comporta 
en el nivel mas bajo de recursion. Ha- 
bitualnienie, el linico medio de estar 
scguro de que funeiona correctamente 
eonsiste en utilizar datos dc compro- 
bacion de los que estes seguro. Un 
metodo simple eonsiste en considerar 
una subrutina rccursiva como si fuera 
un grupo de copias similares de la 
misma subrutina. Ten en cuenta que 
et'ectuar saltos condicionales fuera de 
ias subrutinas sc considera habitual- 
mcntc una mala practica de progra- 
maeion, ya que la pila queda sin dc- 
inir. 

Cuando escribas este tipo de subru- 
tinas, empieza siempre por una com- 
probacion de salida efectiva, Dicha 
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comprobacion sc utiliza para dccidir si 
cl problema (tal como viene detcrmi- 
nado por los parainetruti de entrada) 
piicdc rcsolvcrse dircctamentc, sin nc- 
cesiidad de subdivision. 

Antes de que empieces a progra- 
mar, planea lo que qiiicres conseguir 
con la SLibrutina. A coiitinuacion, 
CLiando cstcs escribicndo cl pro- 
t^ranui, no tc preociipcs dcmasiado 
por la sccucncia exacta de ejecucion, 
y considera \iw cambio los dos prin- 
cipios principales, la condicion de 
parada y la subdivision on problemas 
mas scncillos. Siguiendo este me- 
todo, deborias ser capaz de progra- 
mar alguna dc las utilidades practicas 
dc la recursion. Vcamos a eontinua- 
eion un ejemplo de como la recursion 
puede nicj{.)raT cii iiran mcdida la cla- 
ridad y la eficieneia de un programa 
de ordcnaeion. 

10 PRINT '[SH1FT+CLR/H0'ME][ 
CRSR ABAJO]>lCRSR DCH 
A.][CTRL + 9]0RDENACI0N 
RAPIDA' 

30 PRINT '[CRSR 

ABAJOICUANTOS NUM. 
DESEAS ORDENAR'dNPUT 
'(1-300)[CRSR DCHA,]';A 

40 IF A< OR A>300THEN 
RUN 

50 DIM A(A),R(1+SQRCA)3 

60 A(A}=100:PRINT '[CRSR 

DCHA.][CRSR ABAJO][CTRL+ 
91TABLA DESORDENADA:-' 
:FOR K-0 TO A-1:A(K)-1N 
T {RND(1)*99) 

65 PRINT A(K);:NEXT K:PR1NT 

70 L=0R=A-1:GOSUB 1000 

80 PRINT TCRSR DOHA. ][CRSR 
ABAJ0][CTRL+9]TABLA OR 
DENADA:-':F0R K-0 TO A 
-1:PR1NT A{K);:NEXT K 

90 GET Z$:1F Z$<>' ' THEN90 

100 RUN 

1000 IF R>LTHEN1 = L:J = R+1: 
V = A(L):GOTO 1010 

1005 RETURN 

1010 I = 1 + :1F A(1)<V 
THEN1010 

1020 J-J-MF A(J)>V 
THEN1020 
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1030 IF J>=1 THENT=A(1) = A{J 
):ACJ) =T:GOTO 1010 

1040 T=A(L):A(L) = A(J):A(J)=T 

1050 R(LV)=R:LV=LV+1:R = J^1 
:GOSUB 1000 

1060 LV = LV-1:R = R(LV):L=1:G0 
SUB 1000 

1070 RETURN 

El prognuna le permite introdueir la 
cantidad de niimeros aleatorios que 
deseas ordenar. La linea 50 duncn- 
siona una matriz A (A), para alma- 
cenar dichos numeros, y otra matriz, 
R, para almacenar las variables para 
las llamadas rccursivas. La IfncaftO ge- 
nera e imprinie los numeros aleatorios 
desordenados, niientras que la linca 



70 llama la subrutina recursiva que los 
pone por orden ascendcnte. La linca 
80 imptime la labia de mimcros. 

ElI metodo utiliza algunos aspectos 
de la intercalacion de listas a partir de 
dos subconjuntos y algunos aspectos 
de la ordenacidn de sublistas. La lista 
principal sc divide en dos subconjun- 
tos (lincas 1010 y 1020). Obscrva la 
comprobacion de salida crucial (linea 
1000) para determinar cuando debe 
tcrminar la recursion. Cada uno de los 
dos subconjuntos se ordena en una pa- 
sada (linea 1030). Vuelven a divtdirse 
los subconjuntos, pero dos de ellos se 
junlan torniando uno de los nuevos 
subconjuntos y, a continuacidn, cada 
uno de dichos nuevos subconjuntos se 
ordena en la pasada siguiente. Lucgo 



INPUT 31 



la subrutina se llama a si misma (Ii'nea 
1050) repetidamcntc hasta complctar 
la ordenacion. 

Aunque este metodo de ordenacion 
en BASIC no es tan rapido como en 
codigo maquina, es extremadamente 
rapido. 

RANGO AWIPLIADO 

La utilidad dc la recursion Ilega mas 
alia del calculo de factorialcs y de 
otras aplicaciones matematicas. La re- 
cursion puede ser extremadamente 
litil en programas de juegos y para ge- 
nerar figuras graficas complicadas. 
Tambien puede aplicarsc csta tecnica 
a la inteligencia artificial (AI - Arti- 
ficial Intelligence), por ejcmplo tanto 
en control de robots como en progra- 
mas dc juegos. Metodos similares se 
usan tambien en el proceso de lengua- 
jes (compiladores e interpretes). 

En el ajedrez y en los programas de 
estrategia se utiliza la recursion. Intro- 
duce el siguiente programa para ver 
una ilustracion simple dc dicha apli- 
cacion en el problema clasico de las 
Torres de Hanoi. 




20 PRINT '[SHIFT+CLR/HOME][ 

CRSR ABAJO]>[CRSR DCH 

A.][CTRL + 9]T0RRES DE H 

ANOr 
30 PRINT '[CRSR ABAJOINUM. 

DE ANILLOS (2-93' 
40 INPUT N:IF N<2 OR N>9 

THENRUN 
50 TT-2:TF=1:R-3:G0SUB 9 


60 PRINT TCRSR ABAJOJMOVIM 

lENTOS REALIZAD0S = ';2 

T N-l 
70 END 
90 IF N-0THENRETURN 
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100 N-N-1:W=R:R-TT:TT-W: 

GOSUB 90:W = R:R-TT:TT 

= W 
110 PRINT 'ANlLLO'iNi'DE TO 

RRE';TF;'HASTA TORRE'; 

TT 
120 W-R:R-TF:TF-W:GOSUB 
90:W=R:R=TF:TF = W 

130 N = N + 1:RETURN 

El problema tradicional consta de 
trcs palos montados sobre una supcr- 
ficie. En el primer palo se ensartan un 
cicrto numero de discos de diametro 
variable. El objeto consiste en trans- 
fcrir la pila dc discos dc uno a otro 
palo. Los discos pucdcn moverse solo 
de uno en uno y ningun disco puede 
cjuedar nunca sobre otro menor que 
el. El terccr palo se utiliza como lugar 
de paso mientrasse mueven los discos. 
La version para ordenador da una re- 
presentacion grafica del problema. 
Ejecuta el programa e introduce el nu- 
mero dc discos que deseas manejar. 
La transferencia de discos es rapida, 
por lo que no seras capaz dc seguir 
cada movimiento a menos que modi- 
fiques el programa para retardarlo del 
modo siguiente. 

Tnserta una nueva linear 

115 POKE 19S,0:WAIT 198,1 

Este cambio hace que el programa 
se ejecute solo cuando pulses una te- 
cla. 

El programa que resuelve el pro- 
blema esta mejor plantcado para uti- 
lizar la recursion. El formalo es simi- 
lar al de los programas anlcriores. La 
subrutina recursiva imprime sucesiva- 
mentc cada movimiento de uno a otro 
palo hasta que se complcta el pro- 
blema. El numero total de niovimien- 
tos efectuados se calcula y se visualiza 
despues de cada jugada. 

Per tanto, para problemas alta- 
mente complicados que rcquicran sub- 
division, la recursion a menudo es el 
major metodo de programacion. Sin 
embargo, si cl espacio de memoria es 
limitado, la recursion puede ser extre- 
madamente costosa, tanto en tiempo 
como en espacio. Pcro si una subru- 
tina procedimiento se llama a si 
mismo mas dc dos veces, la recursion 
es quizas el mejor metodo a utilizar. 



32 INPUT 
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aniinacion resulte mas realista). For 
ultimo estan la forma del globe y el di- 
bujo de un globo que explota. Con dos 
caracteres describiras la flecha y con 
otros dos, la escalera. Esto da un total 
de 26 caracteres. 

En esta primera parte tienes esta- 
blecidos los graficos e inicializado el 
juego. 

El programa para el Commodore 
difiere de los de otros ordenadores 
como el Spectrum. Trataremos de at- 
gunos aspectos. 

INICIALIZACION DE LOS 
GRAFICOS 

Ip POKE 51,255:P0KE 52,47::P 
OKE 55,255:POKE 56,47: 
CLR:PRINT'[SHIFT + CLR/HO 
MEIESPERAR UN 
MOMENTO ...' 



15 GOSUB li 
999 GOTO 999 

POKE 56 334,0:POKE 1, 

51:F0R 1-0 TO 64*8-1 :P 

OKE 1228 8+l,PEEK(53 

248+l):NEXT I 

POKE 1,55;P0KE 56334,1 

FOR Z-13312 TO 

13527:READX:P0KE Z, 

X:NEXTZ:RETURN 

DATA 15,63,127,255,255, 

255,255,127 
1060 DATA 240,252,254,255, 

255,255,255,254 

DATA 127,63,63,31,15.7, 

3,6 

DATA 254,252,252,248,2 

40,224,192,96 

DATA 32,96,255,255,96, 

32,0,0 

DATA 5,10,252,252,10,5, 



1010 
1020 



1050 



1070 



1090 



11 



1110 DATA 1,64,17,40,16,0,0, 

161 
1120 DATA 128,2.136,20,8,0,0 

,133 



1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 



DATA 161,0,0,16,40,17,6 

4,1 

DATA 133,0,0,8,20,136,2 

,128 

DATA 48,48,48,48,111,1 

11,48,48 

DATA 12,12,12,12,246,2 

46,12,12 

DATA 7,31,49,57,127,11 

2,237,255 

DATA 224,248,140,204,2 

54,14,183,255 

DATA 127,59,51,99,115, 

35,6,12 

DATA 254,108,102,51,49 

,25,24,48 

DATA 7,31,49,51,127,11 

2,235,255 

DATA 224,248,140,156,2 

54,14,215,255 

DATA 127,51,50,27,25,5 

0,112,224 

DATA 254,204,108,102,5 

4,22,3,6 

DATA 5,31,19,55,55,63,6 

3,15 

DATA 240,248,248,252^ 

252,252,252,240 

DATA 251,219,139, 

219,219,251,247, 

239 
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1280 DATA 252,254,254,254,2 

54,254,254,252 
1290 DATA 95,127,31,31,31,6 

3,127,127 
1300 DATA 188,188.188,188,1 

88,124,248 
1310 DATA 239,239,239,0,247 

,247,247,0 

Esta rulina conticne todtis los 
DATA necesarios para establccer 
los graficos. Los UDG se eslablecen 
para Freddy, la arana, la escalera y las 
plataformas de la parte superior e in- 
ferior de la pantalla gracias a un 
POKE en la meinoria, despues de que 
la linea 1(1 ha prcparado (clear) e! cs- 
pacio suficienlc. 

Y AHORA LA PANTALLA 

20 POKE 53272, 28:G0SUB 
2000 

2000 POKE 53280, 0:POKE 532 
81,0:PRINT [SHIFT + CL 
R/H0ME]LCTRL + 4][CRSR 
DCHA.]L = [CRSR DOHA. 
]0[ 3^CRSR DCHA.][B-[ 
CRSR DCHA.]20[ 5^CRS 
R DCHA.]SC-[CRSR DC 
HA.]0[ 6*CRSR DOHA.] 
HS = 'HSTCRSR ABAJO]' 

2010 FOR Z = l TO 2:PRINT TCT 
RL + 9][C0MM. + 1]ZZZZZZ 
ZZZZZZZZZZZZZZZZZZZZ 
ZZZZZZZZZZZZZZ[ 2*CRS 
R ABAJO][CTRL + 0]';:NE 
XT Z 

2015 PRINT TCLR/HOME][ 
S'^CRSR ABAJO]'; 

2020 FOR Z-1 TO 2:PRINT 
'[CTRL+2j[ IPCRSR 
DCHA.])[ 11*CRSR 
DCHA.])[ 11*CRSR 
^^ DCHA.])[ 2*CRSR 
^^Pk\ DCHA.])':NEXTZ 



2030 PRINT TAB(36)'[CTRL+8][ 

CTRL + gjJK'rPRINT '[OR 

SR ARRIBA]';:FOR Z-1 
TO ISiPRINT SPC(36)' 

[CTRL + 8] 

[CTRL + 9]JK': 

NEXT Z 
2040 FOR Z-1 TO ^ ^ ^ 

2:PRINT TC^<S^^ 

TRL+9] 

[CRSRARR 

IBAlZZZZZZ 

ZZZZ[C0MM + 5] 

ZZZZZZZZZZ[CO 

M + 8JZZZZZ2ZZZZ 

[CTRL + 21ZZZZZZZ 

ZZZ[CTRL+0]'; 
2050 NEXTZiRETURN 



La li'nea 20 conecta al nuevo juego 
de caractercs y despues salta hasta la 
rutina de la Imea 2000. Se dibuja 
la pantalla, que incorpora an marca- 
dor y las posiciones superiores del 
marcador. La linea 2010 dibuja la 
jaula de la arafia, la 2030 la escalera, 
V la 2040 el suelo. 
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FREDDY Y U\ ARANA 
DE MARTE (Y II) 



CULMINACION DEL JUEGO 



EL BUGLE PRINCIPAL 



FREDDY COMODESAYUNO 



ANIMACION DE LA ARAI^A 



ESTALLIDODE LOS GLOBOS 



El juego esta inicializado, Freddy es- 
pera en la escalera. Sus flechas son agu- 
zadas^ los globos estan inflados y a la 
araiia se le hace la boca agua. 

En la primera parte de Freddy y !a 
arana de Marie introdujiste las rutinas 
de inicializacion y de graficos. Ahora 
reiinelas anadiendo las rutinas de ani- 
macion. 

La introduccion de estas rutinas 
completara el juego. 

PREPARACIOIM DE LAS 
VARIABLES 



30 B$-"@A[CRSR ABAJO][ 2 
*CRSR IZQDA.]BC":AR$=" 
DE":E$="FG[CRSR ABAJO] 
[ 2'^CRSR IZQDA.]Hi":M${ 
1) = "L[V1[CRSR ABAJO][ 2* 
CRSR IZQDA.]N0":M$(2)- 
"PQ[CRSR ABAJO][ 2*CRS 
R IZQDA.IRS" 

40 S$-"[CTRL+9][CTRL+5]TU 
[CRSR ABAJO][ 2*CRSR IZ 
QDA.]VW[CRSR ABAJO][ 2* 
CRSR IZQDA.][CTRL + 3]XY" 

:L(l)-8:L(2) = 20:L(3)-32: 
L=0:M-0:D = 1:BL=20:BB 
-20:SP = .3 

50 Y$="[CLR/HOME][ 25-^CRS 
R ABAJ0]":F$C1) = ")[CRS 
R ABAJO][CRSR IZQDA.])": 
F$(2)-"([CRSR ABAJO][CR 
SR IZQDA.](":LL-0 

60 SY = 7:SD$ = "[CTRL + 9][CTR 
L+8]JK[CRSR ABAJO][ 2*C 
RSR IZQDA.]JK[CRSR ABAJ 
0][ 2*CRSR IZQDA.]JK":K 
K-0:SC-0:F-0 

70 GOTO 90 

Hstas lineas simplemente inicializan 
las variables y cadenas necesarias. 



EL GLOBO SUBE 



80 F0RZ=15T0 STEP- 

IrPOKE 646, Z 
85 PRINT LEFT${Y$,BY)SPC (BX) 

'TCTRL+9]"E$:NEXTZ:IF 

KK = 1 THENKK=0: 

GOTO 98 
90 L=L+1;PR]NT 

"[CLR/H0ME][CTRL+4][ 

3*CRSR DOHA.]"; L 
95 IF L-4 THENL-3:LL-1:L( 

3)-L(3) + 3 

98 BX=INT (RND(l) 
*25)+l:BY = 21 

99 POKE 198,0:IF L-1 
THEN150 

125 PRINT LEFT${Y$, 
BY)SPC(BX) 
"[CTRL+9][CTRL+1] 
130 BY=BY-SP:IF BY<8 

THENPRINT "[CLR/HOME][ 
3*CRSR ABAJ0][CTRL+1 
SPC(L(L)-H3F$(1):G0SUB 
6000:GOTO 80 
135 PRINT LEFT$(Y$, 
BY)SPC(BX) 

"[CTRL + 9][CTRL+4]"B$ 
6000 BL-BL-1:IF BL<0 THE 
NBB = BB-h5:BL-BB:SP- 
SP+.3 
6010 PRINT'TCLR/HOME] 
[CTRL+4]"SPC 
(10)BL"[CRSR IZQDA. 
":RETURN 

Hay cuatro rutinas separadas que 
ticncn relacion con los globos. Las li- 
neas 80 y 85 forman la rutina de es- 
tallido del globo, y se utilizan cuando 
la tlecha da en el bianco. Las lineas 90 
a 99 determinan el nivel y la posicion 
del globo. Las lineas 125 a 135 animan 
los globos mientras Nolan por la pan- 
talla. Las lineas 6000 a 6010 ponen en 



moviiniento el clobo sieuiente (una 
ve7 que el anterior ha estallado o ha 
llegado a la jaula) e incrementan la ve- 
locidad del mismo. 

FREDDY SE MUEVE 

138 IF F = THENPRINT 

LEFT$(Y$,SY-Fl) 

SPC(35)" " 
140 GET A$:IF AS = "" THEN180 
150 IF A$-'TCRSR ABAJO]" 

AND SY>8THENG0SUB 

4000:SY=SY-1 




[7777 
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160 IF A$-"[CRSR DCHA.]" 

AND SY<20 THENGOSUB 

4000:SY-SY+1 
165 PRINT LEFT$(Y$, 

SY)SPC{36)S$ 
170 IF A$=" " AND F=0 

THENF-1:XX-34:YY=SY+1 
180 IF F-0 THENPRINT LEFT$( 

Y$,SY+1) SPC(35)"[CTRL 

+ 9][CTRL+2JD" 
900 GOTO 100 
4000 PRINT LEFT$(Y$,3Y) 
SPC(36)SD$:RETURN 

Las h'neas 138 a 180 mueven a 
Freddy como respuesta a las teclas 
pulsadas por el jugador. Las h'neas 150 
y 160 lecn las dos teclas del cursor, uti- 
lizadas para controlar el movimiento 
hacia arriba y hacia abajo, mientras 
que la Imea 170 comprueba si se ha 
pulsado la barra espaciadora. Si ha 
sido asi, se lanza una flecha y se activa 
el indicador de disparo, F. 

Si el jugador utiliza las teclas de 
control del cursor para mover a 
Freddy, se llama la rutina de borrado 
del hombre de la linea 4000, obtenien- 
dose la animacion del mismo. 

PASE AL SALON 



PRINT "[CLR/HOME][ 
3*CRSR ABAJ0][CTRL+1]| 





CTRL + 9]"SPC(M)M$(RND( 


5020 




1)*2+1) 




103 


IF M = 36THEN3000 




105 


M-M + D:IF M<1 OR 
M>L{L) THEND--D:GOTO 
100 


5030 


110 


PRINT 'TCLR/HOME][ 






3*CRSR ABAJ0][CTRL + 6][ 


5040 




CTRL+9]"SPC(M)M$(RND( 


5050 




1)*2+1) 




120 


PRINT 'TCLR/HOME] 






[CTRL+9][3*CRSR 


5055 




ABAJ0][CTRL+2]"SPC 






(L(L)+3) F$ (RND(1)*2 + 1) 




122 


IF F-1 THEN5000 




123 


IF LL = 1 THEN138 


5060 




Las lineas 100 a 120 animan la 
araha, haciendo que deambule por su 
jaula. La linea 122 llama la rutina de 
animacion de la flecha si el indicador 
de disparo ha sido activado, mientras 
que la linea 123 hace que el programa 
salte a la rutina de movimiento del 
globe, Manipulando el valor de LL, 
puede regularse la velocidad del 
globo, o mejor la frecuencia con la 
que se llama la rutina de movimien.to 
del globo. 

TODO UN CARCAJ 



5000 PRINT LEFT$(Y$,YY)SPC{X 
X)"[CTRL + 1][CTRL+9]"A 
R$ 

5005 IF YY<20 THENYY-YY-f.l 

5010 XX-XX-1:IFXX<0 

THENF-0:GOTO 123 



PRINT LEFT$(Y$,YY)SPC 

(XX) "tCTRL+2][CTRL+9]" 

AR$ 

IF (XX-BX OR XX+l-BX) 

AND {INT (BY)=INT{YY) 

OR INT(BY+1)=INT(YY)) 

THEN5050 

GOTO 123 

PRINT LEFT${Y$,YY)SPC(X 

X)"[CTRL-Hl][GTRL + 9]"A 

R$ 

F=0:KK-1:SC-SC+INT (( 

26-YY)/2):PRINT "[CLR/ 

HOME][CTRL+4]"SPC(21 

)SC 

GOSUB 6000:GOTO 80 

Esta rutina anima la flecha borran- 
dola de la ultima posicion y volvien- 
dola a imprimir en la nueva posicion. 

Ademas, el programa Commodore 
tiene en cuenta la gravedad. 

iCOMIDA RAPIDA? 



3000 

3005 
3010 



3020 



3030 
3040 



3050 

3060 
3070 



IFF-0THENPRINT LEFTS 

(Y$,SY+1)SPC(35)" " 

FOR Z-7 TO 21 

PRINT LEFT$(Y$,Z-1)SPC 

(M) 'TCTRL+8][CTRL-f 9] 

JK" 

PRINT LEFT$(Y$,Z)CHR$( 

153)"[CTRL+9]"SPC(M) 

M$(RND(1)*2 + 1):F0R 

ZZ=1 TO 20:NEXTZZ,Z 

IF SC>HSTHENHS-SC 

PRINT "[CRSR ABAJO][ 

2*CRSR DCHA.][CTRL+6] 

ESTAS MUERTO !!![ 3=^ 

CRSR DCHA.][CTRL+8]0 

TRO JUEGO(S/N)?" 

GETA$:IF A$-"S" 

THEN20 

IF A$<>"N" THEN3050 

PRINT 'TSHIFT+CLR/HOM 

E]":POKE 53272, 21:EN 

D 



Las lineas 3000 a 3020 animan ia 
arana, moviendola escalera abajo y 
comiendose a Freddy. El resto de la 
rutina actualiza la puntuacion ma- 
xima, si es necesario, y ofrece otra 
partida. 



/ Codigo Maquina 




ABISMO: PELIGROS 
Y PREMIOS (III) 



Willie necesita un acantilado en 
el que poder realizar sus osadias. 
Y tu precisas saber como combi- 
nar las dos partes de programa 
que llevas escritas hasta aqui. 

Ya ha llegado el memento de di- 
hujar el acantilado que tiene que es- 
calar Willie. Para trasladarlo a la pan- 
talla, necesitas una gran cantidad de 
datos. Una vez mas haremos uso de un 
programa en BASIC para pokear los 
datos en una tabla. 

El siguiente programa proporciona 
los datos necesarios para los sprites: 
nubes, gaviotas, piedras, golosinas 
para la mcrienda, grietas, serpientes y 
cl propio Willie. Tal vez te parezca 
que hay demasiados datos aqui, pero 
para tener una buena sensacion de 
animacion, tienes que dibujar los ob- 
jetos movilcs en varias posiciones, Los 
sprites se alternan entonces para dar ia 
impresion de una accion continua. 




10 REi 



DATAS PARA LOS 



SPRITES. *** 
20 V-53248 
30 8=230 

40 F0RI=S*64T0(S + 8) *64 
50 READA:P0KE1,A:NEXT 
50 POKEV + 21,1:POKEV,100:PO 
KEV+1,100:POKEV + 39,0:P 
OKE2040,237 
100 PRINT"(CRL) LOS SPRITES 

YA ESTAN CREADOS.!!!" 
110 END 

14720 DATA 0,0,0,0,0,0,0,0,0,0 
14730 DATA 0,0,0,7,128,0,7, 

5,4,0,7 
14740 DATA 128,0,7,128,0,15, 

192,0,11,64 
14750 DATA 0,11,64,0,11,64,0 

,12,192,0 
14760 DATA 7,128,0,3,0,0,3,0, 

0,3 
14770 DATA 0,0,3,0,0,3,0,0,3, 



128 

14780 DATA 0,3,192,0.0,0,0,0 

,0,0 
14790 DATA 0,0,0,0,0,0,0,7, 

128,0 
14800 DATA 7,64,0,7,128,0,7, 

128,0,15 
14810 DATA 192,0,11,64,0,6, 

96,0,28,112 
14820 DATA 0,56,216,0,7,128, 

0,3.128,0 
14830 DATA 3,192,0,31,95,0, 

31,96,0,24 
14840 DATA 56,0,16,60,0,0,0, 

0,0.0 
14850 DATA 0,0,0,0,0,0,0,0,0, 


14860 DATA 0,0,0,0,0,0,0,0, 


14870 DATA 0,0,0,0,0,0,0,0,0, 


14880 DATA 0,0,30,0,0,63,0, 

94,128 
14890 DATA 0,237, 192,0,243, 

192,0,243,192,0 
14900 DATA 237,192,0,94,128 

0,63,0,0,30 
14910 DATA 0,0,0,0,0,0,0,0,0, 

15 
14920 DATA 192,0,245,96,15, 

170,160,245,85,96 



14930 DATA 255,170,224,255, 

245,224,255,255,224, 

143 
14940 DATA 255,224,128,255, 

224,240,15,160,255,0 
14950 DATA 32,255,240,96, 

255,255,224,15,255, 

224 




14960 DATA 0,255,192, 
0,15,128,0,0,0, 


14970 DATA 0,0,0,0,0, 

0,0,0,0,0 
14980 DATA 0,0,0,0,0, 



INPUT 37 



14990 DATA 0,0,24,0,0,50,0,0 

,102,0 
15000 DATA 0,60,0,0,120,0,0, 

120,0,0 
15010 DATA 120, 0,0, 60,0, t), 30, 

0,0,30 
15020 DATA 0,0,30,0,0,60,0,0 

.120,0 
15030 DATA 0,120,0,0,48,0,0, 

32,0,0 
15040 DATA 0,36,0,0,24,0,0,8 

15050 DATA 16,0,0,8,0,0,24,0, 

0,60 
15060 DATA 0,0,102,0,0,60,0, 

0,120,0 
15070 DATA 0,120,0,0,120,0,0 

.60,0,0 
15080 DATA 30,0,0,30,0,0,30, 

0,0,60 
15090 DATA 0,0,120,0,0,120,0 

,0,48,0 
15100 DATA 0,32,0.0,0,0,0,0, 

0.0 
15110 DATA 0,0,0,0,0,0,0,0,0, 


15120 DATA 0,0,0,255,0,0,255 

,0,0,255 
15130 DATA 0,0,255,0,0,255,0 

,0,255,0 
15140 DATA 0,255,0,0,255,0, 

0,255,0,0 
lblb0 DAIA 2bb,0,0,2bb,0,0, 

255,0,0,255 
15160 DATA 0,0,255,0,0,255,0 



' r ' r ' 



15170 DATA'0,0,0,0, 0,0,0,0, 

192,0 
15180 DATA 1,32,192,2,27,48, 

26,4,8,36 
15190 DATA 8,8,66,8, 16, 130,4 

,96,132,0 
15200 DATA 144,128,0,8,64,0, 

8.68,33,48 
15210 DATA 56,65,64,8,64, 

128,7,35,0,0 
15220 DATA 220,0,0,0,0,0,0,0, 

0,0 
15230 DATA 0,0,0 

El siguicnte programa te propor- 

ciona los graficos dcfinidos por el 
uisuario que intcrvicncn. Tambien se 

38 INPUT 



definen las letras del alfabcio. Con 
eslo consigues una tipograt'ia unica 
para todo el jucgo. Aiinquc csto no cs 
cstrictamcnte necesario, suele hacerse 
con frecuencia en los jucgos comcrcia- 
les. 

10 REM *" DATAS PARA LETRAS 
Y CARACTERES ESPECIALES 

■M-k 

20 hOK 1-0 TO 263:READ 

A:POKE 12288+1, AiNEXT 
30 PRINT "[SHIFT+CLR/HOMEK 
5 ESPACIOSIESTA 
PREPARADO UN NUEVO 
JUEGO DE" 
40 PRINT "LETRAS YALGUNOS 
CARACTERES ESPECIALES." 
50 END 
12288 DATA 60,66,153,145, 

145,153,66,60 
12296 DATA 56,68,130,130, 

254,130,130,0 
12304 DATA 248,132,130,252, 

130,130,252.0 
12312 DATA 124,130,128,128, 

128,130,124,0 
12320 DATA 248,132,130,130, 

130,132,248,0 
12328 DATA 248,132,128,248, 

128,132,248,0 
12336 DATA 248,132,128,248, 

128,128,128,0 
12344 DATA 120,132,128,152, 

132,132,120,0 
12352 DATA 132,132,132,252, 

132,132,132,0 
12360 DATA 56,16,16,16,16, 

16,56,0 
12368 DATA 56,16,16,16,16, 

144,112,0 
12376 DATA 132,136.144,224, 

144,136,132,0 
12384 DATA 128,128,128,128, 

128,128,252,0 
12392 DATA 130,198,170,146, 

130,130,130,0 
12400 DATA 130,194,162,146, 

138,134,130,0 
12408 DATA 124,130,130,130, 

130,130,124,0 
12416 DATA 124,130,130,252, 

128,128,128,0 



12424 DATA 124,130,130,146, 

138,134,124,0 
12432 DATA 124,130,130,252, 

136,132,130,0 
12440 DATA 120,132,128,120, 

4,132,120,0 
12448 DATA 254,146,16,16,16, 

16,16,0 
12456 DATA 130,130,130,130, 

130,130,124,0 
12464 DATA 130,130,130,130, 

68,40,16.0 
12472 DATA 130,130,146,146, 

146,145,124,0 
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12480 DATA 130,68,40,15,40, 

68,130,0 
12488 DATA 130,68,40,16,16, 

16,16,0 
12496 DATA 254,4,8,16,32,64, 

254,0 
12504 DATA 55,56,16,254,40, 

58,130,0 
12512 DATA 170,170,170,255, 

255,255,255,255 
12520 DATA 3,7,15,31,31,63, 

63,127 
12528 DATA 223,239,255,255, 

239,247,255,255 



12535 DATA 223,239,255,255, 

239, 247,255,255 
12544 DATA 0,0,0,0,0,0,0,0 



Eiccutti estos prognimtis y a conti- 
nuai-'ion almacena la labia de datos en 
codigo milquina que icsulta, para lo 
cual puedes ulilizar tu monitor de CM. 

AGRUPANDO LAS PIEZAS 

Los programas largos con frecucn- 
cia han de ser escritos y ensamblados 
por piirlcs. Esto te pliinlca el pro- 




bicma dc la mczchi de las distintas par- 
ies para obtener an linico programa 
largo que funcione. Y el hecho de que 
todas las partes funcionen separada- 
mente, no significa necesariameiUe 
que todo vaya a segiiir funcionando al 
ponerlo todo junto. 

Cuando una rutina llama a otra, 
siempre existe el problema de que la 
Uame en el lugar inadecuado. Y tam- 
bien puedc ocurrir que las tablas de 
datos no coincidan adecuadainente 
con los corrcspoiidientes punteros de 
datos. Pero estos problemas se pueden 
eliminar corrigiendo detenidamente 
los programas individuales componen- 
tes. 

Esto significa que cuando hayas tcr- 
minado de mezclar todas las partes del 
programa. no habras perdido nada en 
el proce^o. Por desgracia. es miiy facil 
pcrder uno o dos bytes al encadcnar 
varios programas diferentes en la me- 
moria. E incluso la perdida de un solo 
byte puede originar que todo ei pro- 
grama sc inteiTumpa o funcione mal. 

Uno de los problemas mas frecuen- 
tcs es la sobreescritura. Si tienes al- 
gunos bytes de mas, existe el peligro 
de que escribas algunos de ellos por 
encima de la rutina siguiente. Si estas 
almacenando las rutinas ensambladas 
con ayuda de tu monitor en codigo 
maquina. tienes que indicar la direc- 
cion de comienzo y el numero de bytes 
que quieres guardar. 

Con las direcciones iniciales no hay 
evidcntementc ningiin problema. Con 
el CM cnsamblado a partir del pro- 
grama en lenguaje ensamblador. la di- 
reccion de comienzo del codigo ob jeto 
es la misma que la de origen. Al fin y 
al cabo. cuando se hacc actuar el en- 
samblador, este va toniando las direc- 
ciones y ensamblando el programa en 
codigo maquina a partir de la dircc- 
cion inicial. Y adenias. con las tablas 
de datos pokeadas a partir del BASIC, 
la direccion dc ccimien^o es el valor 
inicial de la variable que controia el 
hucle FOR ... NEXT, el cual va cx- 
trayendo los datos y almacenandolos 
en memoria byte a byte al ejecutar el 
programa. 

Pcro el calculo del numero dc bytes 
que iiay que almacenar en memoria 
pucde ocasionarte algiin problema. La 

INPUT 39 



"4 - 



•% 



:^. 



direccion final que dan los ensambla- 
dores es con frecuencia la primera di- 
reccion libre que sigue al final del pro- 
grama. Lo unico que se da a veces es 
la direccion de comienzo de la ultima 
instruccion, per lo que si la rutina no 
termina con un RTS no se obtendra 
una verdadera direccion final. 

La manera usual de obviar este pro- 
blema es almacenar un par de bytes 
adicionales. Pero esto pucde ocasio- 
nar problemas de sobreescritura. La 
solucion esta en cargar tus programas 
ordenadamente en la memoria por 
medio del comando LOAD «noni- 
bre», 1, 1. Carga en primer lugar el 
que tiene el valor mas bajo de direc- 
cion inicial, a continuacion el siguiente 
que la tenga mas baja, etc. Dc esta 
forma resuita que los posibles bytes 
adicionales que haya al final de la ru- 
tina quedaran borrados al escribirse 
sobre ellos parte del principio de la ru- 
tina siguiente. Y tambien significa que 
cualquer RTS que haya sido anadido 
con fines de prueba de las rutinas in- 
dividuales, quedara igualmente bo- 
rrado. 

ALWIACENAMiENTO 

Cuando ya csten cargadas todas las 
rutinas y tablas de datos, almacenalas 
en cinta o disco como un programa 
bajo un nombre distinto; la direccion 
de comienzo sera la direccion donde 
empieza el primer programa y la di- 
reccion final sera la direccion donde 
termina el ultimo programa. Si tienes 
algiin problema ahora, puedes agru- 
par las distintas piezas y realizar una 
nueva prueba. Al utilizar la opcion 
SAVE de tu ensamblador, no te olvi- 
des de almacenar tambien los progra- 
mas de lenguaje ensamblador y dc po- 
keado en BASIC, en el caso de que los 
vayas a necesitar para volver a ensam- 
blar en una fase posterior. 

Si tienes problemas con las tablas de 
datos. puedes cargar ordenadamente 
en la memoria las rutinas de codigo 



maquina y cargar y ejeeutar nueva- 
mentc los programas de polccado en 
BASIC. Para hacer esto, 
tienes que ir cargando los 
programas uno a uno. eje- 
cutarlos y hacer un NEW 
antes de pasar a cargar el 
siguiente. Tambien en este 
caso tienes que almacenar 




en cinta toda el area de memoria, asig- 
nandolc un nuevo nombre de pro- 
grama. 

Ya hemos visto las presentaciones y 
los titulos. Ya hemos escuchado la 
obertura. Es tiempo de que se levante 
el telon. En este caso de Abismo, mas 
bien que levantar el telon, tendieinos 
que hacer un desplazamiento vertical 
{«scrolling») de pantalla. 

En realidad es un proceso bastante 
senciilo. Ya tienes los datos que defi- 
nen el perfil de la pendiente. Por en- 
cima de la pendiente esta el cielo y por 
debajo queda la tierra. Es muy senci- 
ilo colorear ambas secciones. Pero 
ademas tienes que desplazar la pagina 
de instrucciones y hacer que desapa- 
rezca y en su lugar aparezcan el cielo 
y el abismo. 

Por desgracia es muy dificil hacer un 
scrolling en el Commodore. No obs- 
tante es muy facil hacerlo en una es- 
cena que ya esta dibujada y solo tiene 
que repetirse desplazada. Como todas 
las escenas son basicamente iguales, 
no se trata mas que de ir tomando lo 
que va desaparecicndo por un ex- 
tremo y hacerlo aparecer por el otro 
extremo. Pero hacer que aparezcan 
cosas nuevas en la pantalla. ya es muy 
diferente. Por ello lo que harenios 
sera suprimir un nivel tan pronto 
como haya desaparecido la pagina de 
instrucciones. 

Pero primero tienes que pintar di- 
cho nivel. El siguiente programa en 
BASIC contiene los datos del acanti- 
lado. Este programa traslada dichos 
datos a la pantalla, de modo que pue- 
das apreciar la silueta de la escena. 
Por el momento no tiene mucho sen- 



tido, ya que esta en forma de cadenas 
de caracteres ASCII. Pero en seguida 
podras ver lo que hace. 

El programa BASIC almacena en- 
tonces el contenido de la pantalla en 
otra iiona de memoria en donde pueda 
ir abuscarlo el codigo maquina. Al ha- 
cer esto, realizara la conversion a gra- 
ficos de ROM, de forma que lo que 
aparece entonces en pantalla se parece 
realmentc a un acantilado. 



5 REM ** CREA EL ESCENARIO 

DEL JUEGO ** 
10 PRINT "[SHIFT+CLR/HOME][ 
17*CRSR ABAJO]]££[CRSR 
ARRIBA]l££tCRSR ARRIB 
A1]££[[CRSR 
ARRIBA]]££££tCRSR 
ARRIBA]]£[CRSR 
ARRIBA]]£££[CRSR 
ARRIBA]]£££[CRSR 
ARRIBA]]£CRSR 
ARRIBA]]£[CRSR 
ARRIBA1]££"; 
20 PRINT 'TCRSR 
ARRIBA]]£tCRSR 
ARRIBA]]££££[CRSR 
ARRIBA]]£" 
30 FOR X = TO 39:F-0:FOR 

Y-0 TO 24 
40 SC-1024:CL=55296 
50 P=INT (RND(1)*3)+1:IF P-1 

THENV-30 
60 IF P-2 THENV = 31 
70 IF P-3 THENV = 63 
80 C = X4-Y*40:IF F-1 

THENPOKE SC+C.V:POKE 
CL+C,0 
90 IF PEEK(SCtC) = 28 OR 

PEEK(SC + C) = 29THEN F-1 
100 NEXTY,X 

110 PRINT "tCLR/HOMEltCRSR 
ABAJOIVIDASICRSR ABAJOll 
5*CRSR IZQDA.INIVELICRS 
R ABAJOlt 5*CRSR IZQD 
A.IPUNTOS 0000001CLR/ 
HOMEl"TAB(27)"tCRSR A 
BAJ01 = [ 3*CRSR DCHA.l 
-tCRSR ABAJO] = " 
120 FOR 1-0 TO 

999:P = PEEK{SC + 0:POKE 
13312 + LP:NEXT 



40 INPUT 




Codigo Maquina 




130 PRINT "[CLR/HOMEJTERMI 
NADO":STOP 

Puedes guardar estos datos con 
ayuda de tu programa monitor en co- 
digo maquina , La tabla de datos ocupa 
999 bits a partir de la posicion 13312. 

PINTANDO EL PAISAJE 



La siguiente rutina va extrayendo 
ios datos del paisaje y los pone en la 
pantalla como parte del juego: 



6300 
5302 
6304 
6306 
6308 
630A 
630C 
630E 



A9 

85 

A9 

85 

A9 

85 

A9 

85 

6310 A0 00 
6312 Bl FD 

91 



FB 
04 
FC 
34 
FE 
00 
FD 



5314 
6316 
6319 
631B 
631D 
631F 
6321 
6323 
6325 
6327 
6329 
632B 
632D 
632F 
6331 



FB 
20 50 
E6 FB 
D0 02 
E6 FC 
E6 FD 
D0 02 
E6 FE 



51 



A5 
C9 
D0 
A5 
C9 
D0 
60 



FB 
E8 
E7 

FC 
07 
El 



LDA #$00 
STA $FB 
LDA #$04 
STA $FC 
LDA #$34 
STA $FE 
LDA #$00 
STA $FD 
LDY #$00 
LDA ($FD),Y 
STA ($FB),Y 
JSR $5150 
INC$FB 
BNE $631F 
INC $FC 
iNC $FD 
BNE $6325 
INC $FE 
LDA $FB 
CMP #$E8 
BNE $6312 
LDA $FC 
CMP #$07 
BNE $6312 
RTS 



50 



IFS08245THEN 
PRINT"ERROR EN LOS 
DATOS":END 
25344 DATA 169,0,133,251, 

169,4 
25350 DATA 133,252,169,52, 

133,254 
25356 DATA 169,0,133,253, 

160,0 
25362 DATA 177,253,145,251, 

32,80 
25368 DATA 81,230,251,208,2 

,230 
25374 DATA 252,230,253,208, 

2.230 
25380 DATA 254,165,251,201, 

232,208 
25386 DATA 231,165,252,201, 

7,208 
25392 DATA 225,96 

Ya puedes ensamblar y guardar este 
programa, pero no lo llames, porque 
desde 61 se produce una llamada a una 
subrutina que veremos mas adelante y 
si no encuentra dicha subrutina en me- 
moria, se interrumpira. 

PINTANDO CON LOS NUMEROS 

Las primeras cuatro instrucciones 
establecen el puntero de pantalla y las 
cuatro siguientes definen otro puntero 
de pagina cere para los datos. 

A continuacion se pone a cero el 
desplazamicnto de Y, ya que vas a in- 
crementar la pagina cero. El byte al 
que senala el puntero de datos es car- 
ffado en el acumulador v almacenado 



en la posicion de pantalla senalada. Se 
llama entonces a la rutina que hay en 
$5150. Mas adelante nos ocuparemos 
de ella que es la que define los colores. 
Las seis instrucciones siguientes in- 
crementan los punteros. Las instruc- 
ciones BNE de esta parte de la rutina 
comprueban si el byte bajo del pun- 
tero ha llcgado al final de la pagina y 
fuerzan el salto subsiguiente a INC, 
que iiicrementa e! byte alto, en caso 
de que no se haya llegado al final de 
pagina. Las seis instrucciones que fi- 
guran a continuacion comprueban si 
se ha llegado o no al final de la pan- 
talla, sahendo de la pantalla en el caso 
de que asi sea. La instruccion RTS 
quedara borrada cuando se anada el 
resto del programa. 

PONIENDOLE COLOR 

Con la siguiente rutina se introdu- 

cen los colores: 



A continuacion os presentamos su 
careador en BASIC: 



5150 A0 
Bl 
8D 
A5 
18 
69 
85 
AD 
C9 
F0 
C9 

F0 
C9 

F0 
C9 
F0 
C9 
F0 
A9 
91 
A5 
38 
E9 
85 



5152 

5154 

5157 

5159 

515A 

515C 

515E 

5161 

5163 

5165 

5167 

5169 

516B 

516D 

516F 

5171 

5173 

5175 

5177 

5179 

517B 

517C 

517E 



00 
FB 
84 
FC 

D4 
FC 
84 
IC 
IC 
ID 
18 
3F 
19 
IE 
15 
IF 
11 
02 
FB 
FC 



LDY #$00 
LDA ($FB),Y 

03 STA $0384 
LDA $FC 
CLC 

ADC #$D4 
STA $FC 

03 LDA $0384 
C[VIP#$1C 
BEQ $5181 
CMP#$1D 
BEQ $5181 
CMP#$3F 
BEQ $5186 
CMP #$1E 
BEQ $6186 
CMP #$1F 
BEQ $5186 
LDA #$02 
STA ($FB),Y 
LDA $FC 



10 
20 
30 

40 




FOR AD-25344 TO 25393 

READBY:POKEAD, 

BY:S = STBY 

NEXT 



5181 A9 05 LDA #$05 

5183 4C 77 51 JMP $5177 
5185 A9 01 LDA #$01 

5188 4C 77 51 JMP $5177 

El cargador BASIC sera: 

10 S = 

20 FOR AD = 20816 TO 20874 

30 READBY:POKEAD,BY:S = S + B 

Y 
40 NEXT 

50 IFS07678THEN 
PRINT'TRROR EN LOS 
DATOS":END 
20816 DATA 150,0,177,251, 

141,132 
20822 DATA 3,165,252,24,105 

,212 
20828 DATA 133,252,173,132, 

3,201 
20834 DATA 28,240,28,201,29 

,240 
20840 DATA 24,201,63,240,25 

,201 
20846 DATA 30,240,21,201,31 

,240 
20852 DATA 17,169,2,145,251 

,165 
20858 DATA 252,56,233,212, 

133,252 
20864 DATA 96,169,5,76, 119, 

81 
20870 DATA 169,1,76,119,81 

La subrutina empieza cargando el 
mismo byte de datos que figuraba en 
el programa principal y alinacenan- 
dolo en la direccion $0384. Se trata de 
un almacenamiento temporal, yd que 
en este momento hacc falta utilizar ei 
acumulador para otras cosas. 

Las cuatro instrucciones siguicntcs 
sujiian cl valor SD4 al byte alto del 
puntero de pantalla contenido en SFC. 
Esto desplaza el puntero desde su po- 
sicion en la pantalla gnifica — que cm- 
picza en $04(10 — a su correspondiente 
posicion en hi pantalla de color, que 
empieza en SD800. 

Seguidamente los datos be cargan de 
nuevo desde $0384 al acumulador. Se 
realiza entonces una coniprobacion de 
los diferentcs codicos dc control de los 



datos. Dependiendo del codigo de 
control que se encuentre, el proccsa- 
dor salta a la instruccion que hay en 
S5181 o$5186. 

La instruccion que hay en $5181 es 
LDA #$(1^ que earga el acumulador 
con una tinta de color verde. For el 
contrario la instruccion LDA #$01. 
que figura en $5186. asigna para la 
tinta el color bianco. Asf es como se 
obtienen el color verde de la hierba v 
el bianco del propio acantilado. Los 
dos tonos de la hierba y el acantilado 
se obtienen con ayuda de los caraete- 
res graficos que mezclan el color dc la 
tinta con el del papel. 

Si no se extrae ningun caracter de 
control, cl acumulador ^e carga con el 
color rojo. De esta forma, todo lo que 
hay en la pantalla que no es ni verde 
ni bianco, se colorea en rojo. 

Naturahncnte esto no significa que 
el eielo sea rojo. Lo que es rojo es el 
color de la tinta. per lo que solo apa- 
rece cuando se escnbcn datos en la 
pantalla. En consecuencia. el numero 
dc vidas. la altura y la puntuacion se 
presentan en color rojo, pero el cielo 
aparece en el color del papel, que es 
el gris. For desgracia estaba bastante 
nublado el dia que Willie decidio irse 
de merienda campestre. al menos en 
la version Commodore. 

Cuando el caracter se imprimc en 
bianco o en verde. el procesador salta 
a la instruccion que hay en $5177. que 
es la que establece el color rojo para 
el resto de los datos. Asi se almaeena 
en el iugar adecuado el color elegido 
en la pantalla de color. 

Las cuatro instrucciones siguientes 
restan el valor $D4 del byle alto del 
puntero de SFC, a fin de desplazarlo 
desde la pantalla de color a la pantalla 
de graficos. Cuando con la instruccion 
RTS se retorna a la rutina principal, 
puede entonces extraerse el sigiiiente 
cariktcr grafico y prcscntarse en la 
pantalla. 

Una vez formada la primcra panta- 
lla. las siguientes son simplemente 
modificaciones de la misma. En el se- 
gundo nivel. Willie tiene que enfren- 
tarse con las grietas. Para crearlas, 
basta con escribir por cncima de la 
pendiente que figuraba en la primera 
pantalla, ulilizando cl color de fondo 




y con la forma que quieras darle a la 
oquedad que vas a crear, A continua- 
cion se anaden las serpientes escri- 
biendo con el color de fondo. Poste- 
riormente anadiremos la rutina que 
hace que se niucva la serpiente. 

La siguiente rutina determina que 
sprites aparecen en cada nivel e inicia- 
liza la posicion de comienzo del hom- 
bre y el canto rodado. Tambien se 
ocupa del mar. 



JMP $6059 
LDA $C000 
CMP #$01 
BNE $6010 
LDA #$47 
STA $D015 
RTS 
CMP #$02 



6000 4C 59 60 

6003 AD 00 C0 

6006 C9 01 

6008 D0 06 

600A A9 47 

600C 8D 15 D0 

600F 60 

6010 09 02 



42 INPUT 




i i 



6012 
6314 
6316 
6319 
601 B 
501D 
601F 
6322 
6324 
5027 
5028 
5029 
632B 
6320 
532E 
5030 
6332 
6335 
6338 



D0 18 
A9 7D 
8D 15 D0 
A2 03 
A0 00 
A9 0F 
99 2A D0 
A9 EC 
99 FB 07 
C8 
CA 

D0 F2 
60 

C9 03 
D0 08 
A9 7F 
8D 15 D0 
4C 19 60 
C9 04 



BNE $602C 

LDA #$7D 

STA $D015 

LDX #$03 

LDY #$00 

LDA #$0F 

STA $D02A,Y 

LDA #$EC 

STA $07FB,Y 

INY 

DFX 

BNE $601D 

RTS 

CMP #$03 

BNE $6038 

LDA #$7F 

STA $D015 

JMP $6019 

CMP #$04 



^^■H 


i^a/ Codigo 


Maquina /^ay 


603A D0 18 


BNE $6054 


DATOS":END 


603C A9 7D 


LDA #$7D 


24576 


DATA 76,89,96, 173,0, 


603E 8D 15 D0 


STA $D015 




192 


6041 A2 03 


LDX #$03 


24582 


DATA 201,1,208,6,169, 


6043 A0 00 


LDY #$00 




71 


6045 A9 05 


LDA #$05 


24588 


DATA 141,21,208,96, 


6047 99 2A D0 


STA $D02A,Y 




201,2 


604A A9 EA 


LDA #$EA 


24594 


DATA 208,24,169,125, 


6040 99 FB 07 


STA $07FB,Y 




141,21 


604F C8 


INY 


24600 


DATA 208,162,3,160.0, 


6050 CA 


DEX 




169 


6051 D0 F2 


BNE $6045 


24606 


DATA 15,153,42,208, 


6053 60 


RTS 




169,236 


6054 A9 7F 


LDA #$7F 


24612 


DATA 153,251,7,200, 


6056 40 3E 60 


JMP $603E 




202,208 


6059 A9 07 


LDA #$07 


24618 


DATA 242,96,201,3,3, 


605B 8D 0E C0 


STA $C00E 




208,0 


605E A9 E8 


LDA #$E8 


24624 


DATA 169,127,141,21, 


6060 8D 0D C0 


STA $C00D 




208,76 


6063 AD 02 C0 


LDA $0002 


24630 DATA 25,96,201,4.208, 


6066 8D 02 C0 


STA $0002 




24 


6069 8D 0C C0 


STA $O00C 


24636 


DATA 169,125,141,21, 


6060 A9 02 


LDA #$02 




208,162 


606E 8D 12 C0 


STA $0012 


24642 


DATA 3,160,0,169,5, 


6071 A9 21 


LDA #$21 




153 


5073 8D 11 C0 


STA $0011 


24648 


DATA 42,208,169,234, 


6076 A9 12 


LDA #$12 




153,251 


6078 8D 00 D0 


STA $D000 


24654 


DATA 7,200,202,208, 


607B A9 Al 


LDA #$A1 




242,96 


607D 8D 01 D0 


STA $D001 


24660 


DATA 169,127,76,62,96 


6080 A9 42 


LDA #$42 




,169 


6082 8D 10 D0 


STA $D010 


24666 


DATA 7,141,14,192,169 


6085 A9 4A 


LDA #$4A 




,232 


6087 8D 0D D0 


STA $D00D 


24672 


DATA 141,13,192,173,2 


608A A9 40 


LDA #$40 




,192 


6080 8D 00 D0 


STA $D00C 


24678 


DATA 141,2,192,141,12 


608F AD IE D0 


LDA $D01E 




,192 


6092 AD IF D0 


LDA $D01F 


24684 


DATA 169,2,141,18,192 


6095 4C 03 60 


JMP $6003 




,169 






24690 


DATA 33,141,17,192, 
169,18 


Su consiguicnte car 


gador en BASIC 


24696 


DATA 141,0,208,169, 


cs: 






161,141 






24702 


DATA 1,208,169,66.141 


10 S = 






15 


20 FOR AD = 24576 TO 


24708 


DATA 208,169,74,141, 


24727 






13,208 


30 READBY:POKEAD,BY:S = S + B 


24714 


DATA 169,64,141,12, 


Y 






208,173 


40 NEXT 




24720 


DATA 30,208,173,31, 


50 IFSO18505 


THEN 




208,76 


PRINT"ERROR EN LOS 


24726 


DATA 3,96 



INPUT 43 




DANDO SALTOS 



Esta rutina empicza con un salto a 
una ctiqucla situada hacia la mitad dc 
ia propia rutina. Y cl procesador solo 
regresa a] principio una ve^ que se ha 
coniplctado la segunda mitad. Aun- 
quc esta no es la manera mas ade- 
cuada de escribir programas, sc trala 
de un mctodo ulil para pasar de un 
scgmento de programa a otro sin nc- 
cesidad de tener que volver a escrihir 
lodo el codieo fucntc. 



LOS SPRITES 



En cl curso dc la escritura del juego 
sc construyc una tabia dc variables. 
Dicha tabIa comienza en 49152 y sc 
utiliza para almaccnamicnto temporal 
de los parametros que carnbian du- 
rante el jucgo. La variable almace- 
nada en la dircccion 49152 especifica 
la aitura alcanzada por el jugador y en 
consecuencia determina que pantalla y 
que sprites se rcquicren. 

Los contenidos de la direccion 
49152 se cargan en el acumulador y sc 
comparan con 1 . Si el juego no esta en 
el nivel 1. la instruccion BNE fuerza 
un salto a la siguicntc subrutina. Si se 
encucntra en el nivel L el registro A 
se carga con el niimero 7 1 que despues 
sc almacena en la direccion 53269. 
Esta es la direccion que habilita la pre- 
sentacion de los sprites. Los sprites se 
activan poniendo un 1 en ei conjunto 
dc bits. SegLin esto, se activan los spri- 
tes 0, L 2y 6. 

A continuacion sc produce cl rc- 
torno del procesador, 

EN EL NIVEL DOS 

La siguiente subrutina cmpieza de 
la misma manera. excepto que esta 
vcz la eomprobacion sc hace para ver 
si se encucntra en el nivel dos. Si asi 
ocurre, sc activan ademas los sprites 3, 
4 y 5. mientras que cl sprite 2 (que co- 
rrcsponde ai canto rodado) qucda dc- 
sactivado. 

A continuacion se carga cl registro 
X con el valor 3 como contador de bu- 
cle, mientras que Y sc carga con 
como valor dc desplazamiento que 
sera incrementado cada vcz que cl 
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procesador recorra el bucle. De esta 
forma se carga el valor 15. que es el 
color de fondo, en las dircccioncs dc 
color dc los sprites 3, 4 y 5. Despues 
se activan los correspondientes pun- 
tcros dc sprite. La subrudna realiza 
los agujcros. 

La siguiente subrutina comprueba si 
el jugador se encucntra en cl nivel 
tres. Dc scr asi, se activa de nuevo el 
sprite del guijarro, para lo cua! se 
suma un dos adicional y se almacena 
en la direccion que habilita los sprites. 
Pero todavi'a hay que perforar los agu- 
jeros por lo que cl procesador regresa 
a la rutina RET anterior. 

En el nivel cuatro. el sprite del 
canto rodado se desactiva de nucvo y 
se ejecuta el nucvo bucle que empieza 
en la direccion $6045 (24645). Se trata 
de la misma rutina anterior de perfo- 
racion de agujeros, con la salvedad de 
que el color se ha puesto a 5. que es 
el color de la scrpicnlc y dc que el 
puntcro dc sprites esta apuntando a 
los datos de la serpicnte. 

Finalmcnte en el nivel cinco, el 
sprite del canto rodado vuclvc a acti- 
varsc otra vez y se llama a la rutina de 
presentacion de serpientes. 

EL MAR 

Las variables contenidas en las di- 
recciones 49165 (SCOOD) y 49166 
(SCODE) dctcrminan el estado de la 
mar. El retardo que determina cuan 
rapidamente sube la agua esta contc- 
nido en la dircccion 49154 (SC002) y 
pucdc carabiarse durante e! jucgo 
para hacer mas dcscsperada la esca- 
lada de Willie y poner el juego mas di- 
ficil. 

Sc dcfinen entonces las coordena- 
das X e Y dc los sprites que confor- 
man ei mar y se desactivan los indi- 
cadores de colision dc sprites. 

SERPIENTES Y CONTADORES 

La siguiente rutina configura las ser- 
pientes: 

6100 A9 74 IDA #$74 

6102 8D 06 D0 STA $D006 

6105 A9 92 LDA #$92 

6107 8D 07 D0 STA $D007 



610A A9 7A 




LDA 


#$7A 


610C 8D 08 


D0 


STA 


$D008 


610F A9 A0 




LDA 


#$A0 


6111 8D 09 


D0 


STA 


$D009 


6114 A9 82 




LDA 


#$82 


6116 8D 0A 


D0 


STA 


$D00A 


6119 A2 03 




LDX 


#$03 


611B A0 00 




LDY 


#$00 


611D A9 14 




LDA 


#$14 


611F 99 64 


C3 


STA 


$C364, 


6122 E9 05 




SBC 


#$05 


6124 C8 




INY 




6125 CA 




DEX 




6126 D0 F7 




BNE 


$611F 


6128 60 




RTS 





A continuacion os proporcionamos 
su cargador en BASIC: 

10 S = 

20 FOR AD=24832 TO 

24872 
30 READBY:POKEAD,BY:S = S + 

BY 
40 NEXT 

50 IFS05457 THEN 
PRINT"ERROR EN LOS 
DATOS":END 
24832 DATA 169,116,141,6, 

208,169 
24838 DATA 146,141,7,208, 

169,122 
24844 DATA 141,8,208,169, 

160,141 
24850 DATA 9,208,169,130, 

141,10 
24856 DATA 208,162,3,160,0, 

169 
24862 DATA 20,153,100,195, 

233,5 
24868 DATA 200,202,208,247, 

96 

Las coordcnadas X c Y de los tres 
agujeros y serpientes se cargan en el 
acumulador v se almaccnan en las di- 
recciones de memoria 53254 ($D006) 
a 53258 ($DOOA). Estas son las di- 
recciones que se encargan de controlar 
las posieiones X c Y dc los sprites 3, 
4 y 5. 

El bucle escalona los movimientos 
de las lenguas, de forma que no se dis- 
paren todas al mismo tiempo. 



J 



iNO TE PIERDRS NI UN SOLO EJEMPLRR! 



INPUT COMMODORE quiere 
proporcionar a sus lectores este nuevo 
servicio de ejemplares atrasados para que 
no pierdan la oportunidad de tener en sus 
hogares todos los ejemplares de esta revista, 
lider en el mercado espanol. 

Podreis solicitar cualquier niimero de 



INPUT COMMODORE que quei-ais,siempre 
al precio de cubierta (sin mas gastos). 

Utiliza el cupon adjunto, enviandolo a 
EDISA (Dpto. de Suscripciones), Lopez de 
Hoyos, 141 - 28002 Madrid. 





CUPON DE PEDIDO ) 

SI, envienme contrarreembolso ejemplares de INPUT 

COMMODORE de los niimeros: 

nnnnnnnnnnnnn 



'< 



NOMERE I I I I ! I I I L_l I L_L-i^i— L 



J L l_l . I. 



I I I I I 1 I 



if ■*» 



APELLIDOS I 1 I I I I 



EXJMICILIO I I 

NUM. i_i LJ PlSO I I 1 ESCALERA i i i COD. POSTAL i L 

POBLACION II. 

TELEFONO I I i I I I i J 



I I I I 1 1 1 I I 
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ANIMACION MEDIANTE 
GRAFICOS PAGINADOS 



La utilizacion de tecnicas simples de 
graficos paginados ofrece una real com- 
prensiondelmiindodela animacion por 
ordenador y obtiene uiios resultados in- 
teresantes en tu micro. 

Todos los tipos de animjicion se ba- 
san en iin fenomeno de percepcion co- 
nocido como persistencia dc hi vision. 
En efecto, esto significa que una ima- 
gen que vemos se «conscrva» en la 
memoria durante un instantc aprecia- 
ble. incluso aunque la vision se mueva 
hacia cualquier otro punto. Si se 
muestra rapidamente una secuencia 
de imagenes estaticas. el cerebro no 
pucdc rctcncT los cambios dc imagcn 
que ocurren a una frecuencia superior 
a doce veces por segundo. aproxima- 
damcntc. Como rcsullado. dcja de se- 
parar las imagenes y, confundido, eree 
ver movimiento. 

El proeeso se demuestra cou inucha 
scncillez con el «cambio de paginal, 
en el cual los dibujos de cada una de 
las paginas dc un libro pucdcn ponerse 
en movimiento a medida que se pasan 
las paginas a una cierta velocidad. 
Una demostracion mas sofisticada de 
lo mismo se cncucntra en el proceso 
de animacion porcuadros. que data dc 
los primcros anos de cste siglo. 

Este tipo de animacion eonsistc en 
dibujar una figura sobrc una pieza de 
plastico, denominada celda, fotogra- 
fiando a continuacion un par dc cua- 
dros de pelicula utilizando una camara 
dc cine convcncional montada sobre 
una nn>ntura situada sobrc dicha pc- 
li'cula. La cclda sc suslituyc a conti- 
nuacion por otra que muestra una ver- 
sion ligcramentc allcrada de la misma 
t'igura y sc rcpitc todo el proeeso an- 
terior. Como puedes imaginar, estc 
tipo de animacion requicrc un increi- 
ble niimcro dc imagenes que deben di- 
bujarse concienzudamente a mano, ya 
que se neccsilan alrcdcdor de unos 
veinticmco ciutdros por cada segundo 



de pelicula cinematografica acabada. 

GRAFICOS POR ORDENADOR 

Por tanto. /.por que no utilizar los 
ordenadores para acelerar el proeeso? 
Incluso el relativamente humilde mi- 
cro domestico puede generar buenas 
imiigenes, mientras que los ordena- 
dores especiales son capaces de obte- 
ner imagenes asombrosamcntc clabo- 
radas. 

El problema reside en que obtener 
una visualizacion de la calidad que da 
por supuesta hoy en dia e! publico ci- 
nematografico requiere una variedad 
fantasticamente extensa de hardware. 
Una pelicula de ciencia ficcion, E! 
guerre ro del espacio {Starfighter) , con- 
fio en un equipo informiitico para con- 
scguir 27 minutos de sorprendentes 
imagenes. Pero para ello sc necesito 
un Cray X-MP de 12 millones de do- 
lares conectado a dos ordenadores de 
un millon de dolares. Este enorme 
gasto se considero que valia la pena, 
ya que permitio crear imagenes que 
habrian sido dificiles de conseguir en 
el mundo real. 

Toda esta tecnologia esta muy bien 
para la gente que tiene acceso al 
equipo de grabacion cinematogrcifico 
o de video, a potcntcs ordenadores y 
que disponen de tienipo de sobra. 
Pero la mayor parte de gente que no 
dispone de ninguna de estas cosas 
lamhicn puede cnconlrar dc gran uti- 
lidad los graficos generados por or- 
denador, Por cjcmpio, las imagenes 
animadas son una parte importante de 
toda clase de paquetes de Diseno 
Asistido por Ordenador (CAD: Com- 
puter- Aided- Design) . y todos los bue- 
nos jucgos dc accion dcpenden en 
gran medida de representaciones de 
pantalla atractivas y con una anima- 
cion bien hecha. 

La sofjsticacion que puede consc- 
guirse en estas imagenes esta Limitada 



por la capacidad del ordenador que 
utiliccs. El Cray opera a 101) mega- 
flops (100 millones de operaciones de 
coma flotantc por segundo). Pero 
como las imagenes deben intercam- 
biarse varias veces por segundo para 
obtcncr una animacion rcalista. in- 
cluso cl Cray no puede generar ima- 
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ANIMACION POR CUADROS 

GRAFICQSPOR ORDENADOR 

EXPLICACIQN DE LOS GRAFICQS 

PAGJNADOS 

UN CUBOMOVIL 



CREACION DE GRAFICOS 



ANIMACION EN TIEMPO REAL 

PERSISTENCIA DE LA VISION 

ANIMACION DE PELICULAS 

COMERCI'ALES 




^enes de calidad !o bastante rapida- 
mente como para conseguir una ani- 
~ jcion en ticmpo real. En vcz dc ello, 
ibs imagenes generadas se filman por 

parade scgun un proceso de ciiadi"OS 
ct_mvencionaL 

Los niveles de detallc inferiorcs de 
imagenes permiten que los cuadros 



se genercn mas rapidamente. Rcal- 
mente, existe un simulador de vuelo 
en el cual las representaciones razo- 
nablemcnte exactas de un avion en 
vuelo son generadas a razon de 50 ve- 
ccs por segundo, obtenicndo efectos 
animados de gran rcalismo. 

La razon dc la dificultad dc la ani- 




macion por ordenador a gran vcloci- 
dad reside en la cantidad de informa- 
cion necesaria para cada imagen. 
Cuanto mas detallada sea csla, mas 
memoria se neccsita para almace- 
narla. Incrementa el niimero de colo- 
res disponibles. y la cantidad de RAM 
rcquerida para almacenar la informa- 
cion relativa al color crccera tambicn. 
Cnanta mas memoria se utilice para 
almacenar la imagen, mas trabajo ten- 
dra que ilevar a cargo la CPU para ac- 
tualizarla. La razon por la cual la ma- 
yor parte de peliculas comcrciales ge- 
neradas por ordenador emplean la 
animacion por cuadros cs simple- 
mente que el procesador no es lo bas- 
tante polente como para actualizar 
grandes areas de memoria rapida- 
mente. Si la actualizacion de los gra- 
ficos es un proceso lento, incluso para 
quicnes utilizan ordenadores potcn- 
tes. (.como puede un programador ca- 
sero obtener animacion Litilizando un 
micro;* Una solucion consistc en cm- 
plear grdficos pcigimidos. 

^QUE SON LOS GRAFICOS 
PAGINADOS? 

Todos los ordenadores domcsticos 
disponen dc un area de memoria aso- 
ciada a la pantalla. Puede tratarse de 
memoria niapeada, lo que significa 
que a cada posicion de pantalla le co- 
rrespoade una posicion de memoria, o 
pucdc cstar organizada utilizando un 
fichero de visualizacion. 

Con his graficos paginados, en vez 
dc construir Sa siguicnte imagen direc- 
tamente en la memoria de pantalla, se 
rescrva un area en alguna otra parte 
para dicho propdsito. Una voz com- 
pleta la nueva imagen. se copia a la 
RAM normalnicnte asociada a la pan- 
talla. Estas areas de pantalla adicio- 
nales se denominan paginas, por lo 
cual se conocc a esta tecnica como gra- 
ficos paginados. 
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Obviamente. si solo deseas dibujar 
una imagcn, los graficos paginados 
pucdcn parecer de poca utiiidad. Sin 
embargo, si deseas escribir un pro- 
grama en el cual una pagina de texto 
vaya scguida de una imagen. piensa 
cuan conveniente sen'a que fucras ca- 
paz de empezar creando la primera vi- 
sualizacion grafica en algiin otro lugar 
de la memoria mientras el usuario esta 
ocupado leyendo toda la pagina de 
ins-truccioncs. Cuando sea necesario el 
grafico, se ahorra tiempo, ya que este 
se encuentra presente en otra area de 
la RAM. Si es conveniente. puedes 
emplear todo el tiempo en haccr cal- 
culos per ti mismo y emplear el or- 
denador para visualizar las imagenes 
tan rapidamente como sea necesario. 

Pero la ventaja real de los graficos 
paginados se consigue cuando deseas 
visualizar mas de una imagen en ra- 
pida Rucesion. Los comandos graficos 
del BASIC habitualmente escriben so- 
lamente en la memoria dc pantalla. 
Esto signitica que las imagenes se 
construyen en la pantalla y a conti- 
nuacion se salvan. Mientras que !a uti- 
lizacion de graficos paginados no 
aporta ninguna rapidez a la constiuc- 
cion fisica de una imagen en la pan- 
talla, una vez efectuados los calculos. 
dichas imagenes pueden transportarse 
de la memoria a la pantalla muy ra- 
pidainente. Asi\ los graficos paginados 
conservan la simplicidad del BASIC, 
combinada con una velocidad de re- 
prescntacion mucho mayor. Y si dis- 
pones varias imagenes en distintas 
areas de memoria, puedes llamarlas 
en una secuencia rapida para permitir 
representaciones bastantc compiejas. 

Supongamos que deseas construir 
una secuencia animada simple que 
niuestre la rotacion de un cubo. Has 
decidido que cuatro imagenes seran 
suficientes para rcpresentar una rota- 
cion del cubo y deseas que este gire 
cinco veces. La estructura de un pro- 
grama tipico podn'a parcccrse a esto: 

for contador = 1 to 5 do 

begin 

limpiar la pantalla 

presentar imagen niimero 1 

limpiar la pantalla 

presentar imagen mimero 2 

limpiar la pantalla 



presentar imagen mimero 3 

limpiar la pantalla 

presentar imagen numero 4 

end 

La idea es bastante simple. Se lim- 
pia la pantalla. cada una de las cuatro 
imagenes se dibuja per turno y se re- 
pite el proceso hasta que el cubo haya 
girado cmco veces. La desventaja de 
este metodo es que dibujara cada ima- 
gen cinco veces. Los calculos duraran 
un cierto tiempo cada vez, por lo que 
la animacicin resultante sera pobrc, 
con un «salto» apreciable entre cada 
imagen. 

Veamos ahora un algoritmo altcr- 
nativo, que muestra el procedimiento 
general cle un programa estrueturado 
en torno a las tecnicas de graficos pa- 
ginados: 

limpiar pantalla 
formar imagen numero 1 
alraaccnar datos de pantalla en pa- 
gina de memoria 1 
limpiar la pantalla 
formar imagen numero 2 
almacenar datos dc pantalla en pa- 
gina de memoria 2 
limpiar la pantalla 
formar imagen numero 3 
almacemir datos de pantalla en pa- 
gina de memoria 3 
limpiar la pantalla 
formar imagen numero 4 
almacenar datos de pantalla en pa- 
gina de memoria 4 
for contador = 1 to 5 do 
presentar memoria de pagina 1 a 
pantalla 

presentar memoria de pagina 2 a 
pantalla 

presentar memoria de pagina 3 a 
pantalla 

presentar memoria de pagina 4 a 
pantalla 
end 

El programa es mas largo y todavia 
tienes que pasar por el lento proceso 
de calcular y dibujar las cuatro ima- 
genes, pero la animacion no empieza 
hasta que se ha realizado dicho pro- 
ceso. Una vez almacenadas en me- 
moria, las imagenes pueden volver a 
Uaraarse con extraordinaria rapidez. 

Aunquc cl dibujo sc cfcctua todavia 



en BASIC, el trozo de programa real 
que mueve una imagen determinada 
en memoria sera una corla rutina en 
codigo maquina. Esta transfiere una 
pantalla entera de informacidn mas 
dcprisa de lo que el ojo puede ver. !a 
esencia de la animacion. 

DEMOSTRACION DE GRAFICOS 

El siguientc programa demuestra 
una aplicacion simple de los gr;ificos 
paginados. Como el programa con- 
tienc codigo maquina para obtcncr la 
necesaria velocidad en el intercambio 
de las imagenes, salvalo antes de ejc- 
cutarlo para evitar percances. 

Sc tc pidc que pulses una lecla dcs- 
pues de haberse dibujado la imagen y 
debes pulsar otra tecia mas para em- 
pezar la alternancia de las imagenes. 

Puedes utilizar este programa como 
base para tus propios experimentos, 
cambiando las imagenes dibujadas. 
Un proximo articulo explicara con 
mas detailc las tecnicas utilizadas, asi 
como el modo de llevarla sofisticacion 
hasta los Ifmitcs de tu ordenador. 

La utilizacion de los graficos de ex- 
cclcntc rcsolucion del Commodore, 
accesibles utilizando ei cartucho Si- 
mons" BASIC o la facilidad dc graficos 
en alta resolucion que INPUT te ex- 
plico en otros mimeros, ofrcce un ihu- 
sual e interesante par dc imagenes al- 
ternalivas. 

Las dos imagenes son similares y 
por ello no se dibiijan individu;il- 
mentc. En vez de ello, se construyen 
utilizando un bucle POR. ..NEXT que 
envia al programa dos veces a la rutina 
de dibujo, efectuando la segunda vez 
pequehos cambios de las instruccio- 
nes. 

Si se utiliza el cartucho Simons' BA- 
SIC, el programa es correcto. Si se uti- 
liza la facilidad de graficos en alia rc- 
solucion de INPUT tal como se pu- 
blico en INPUT antcriorcs, borra la li- 
nea 65, modifica cl 224 en negrila de 
la linca 240 a 32 y el 255 en ncgrita de 
la linea 250 a 63. Cuando sc publique 
el resto de la facilidad dc alta resolu- 
cion de INPUT, la linea 65 podra dc- 
jarse en su sitio, pero los cambios 
efectuados en las lineas 240 y 250 de- 
bcran dcjarsc como permancntes. 
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Ademas. debcs preceder lodos los co- 
-Tiandos graficos con una ((v. 

20 POKE 51,255:POKE 52, 

29:P0KE 55,255:POKE 56, 

29:CLR 
50 GOSUB 220 
-0 D-64 
yj FOR N = TO 1 
60 HIRES 0,1:MULTI 2,4, 

5:C0L0UR 6,6 
zz CIRCLE 80,100,30+10*N, 

30+10*N,l:PAHMT8p,lp0,2 
^0 FOR X = TO 159:PL0T 

RND(1)*160,RND(1)*200, 

RND(1)"4 
50 PLOTX,100+30*SIN((N 

+X/50)*EXEC/4),3 
85 LINEX,50 + N*50, 0,100- 

N*50,RND(1)*4+1 
?0 NEXTX 
:00 GOSUB 430:IF N-0 

THEND=96 
110 TEXT 30,1,"PRESS ANY KEY", 



3,1,8;POKE198,0:WAIT198,1 

120 NEXT N 
150 D=64:F0R N = TO 1 
170 GOSUB 440:IF N=0 

THEND-96 
190 NEXT N 
200 GOTO 150 
220 FORZ-7680TO7738:READ 

X:POKEZ,X:NEXTZ:RETURN 
230 DATA 169,0,141,14,220, 

169,53,133,1 
240 DATA 169,0,133,251,133, 

253,169,224,133,252,169, 

64,133,254,160,0 
250 DATA 177,251,145,253, 

192,63,208,16,165,252, 

201,255,208,10 
260 DATA 162,1,142,14,220, 

162,55,134.1,96,200 
270 DATA 208,229,230,252, 

230,254,76,25,30 
430 POKE 7700, D:POKE 7706, 

251:P0KE 7708,253:SYS 

7680:RETURN 



440 7700,D:POKE 7706, 

253:P0KE 7708,251:SYS 
7680;RETURN 

La Hnea 20 del programa limpia un 
espacio de memoria para el codigo 
niaquina y Li palilalia que necesitamos 
almacenar. La linea 30 envi'a a conti- 
nuacion el programa a la subrutina de 
las lineas 220 a 270, en las que los da- 
tes sc colocan en memoria. La linea 40 
dctcrmina la posicion de memoria en 
donde se va a almacenar la primcra dc 
las dos pantallas y la 50 en un bucle 
FOR. ..NEXT para las distintas pan- 
tallas. El modo grafico y cl color dc la 
pantalla (azul) se dcterminan en la li- 
nea 60. 

Los dihujos primero y segundo sc 
dihujan en las lineas 65 a i^5. En la li- 
nea 100, el programa sc cnvi'a prime- 
ramente a la linea 430, que saiva la 
pantalla antes de cambiaria de posi- 
cion. Se intercambian las dos pantallas 
por medio de una rutina contenida en 
las lineas 150 y 200. 
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HISTOGRAMAS Y 
TARTAS ESTADISTICAS 



Sea cual sea la procedencia de tus da- 
tos {un presupuesto familiar, un pe- 
queno negocio, una aficion o los mismos 
indicadores de tu salud), notaras la di- 
ferencia si los representas mediante un 
diagrama de barras o una tarta re- 
donda. 

Ya has podido vcr en nucstra revista 
como se escribe un programa que vi- 
sualiza tus datos en forma grafica. 
Otra manera de representar la infor- 
macibn numerica seria el diagrama no 
lineal. Las barras (histogramas) y las 
«tartas» estan entrc las rcprescntacio- 
nes mas ampliamente utilizadas de la 
informacion comercial y estadistica. Y 
cs que ofrecen una ventaja adicional: 
pueden colorearse y adquirir formas 
deslumbrantes. 

Aparte de esto, cada diagrama se 
adapta particularmente mejor a un 
tipo de datos que a otro. Las barras se 
prestan a ser utilizadas para datos que 
fluctiian a lo largo de un amplio aba- 
nico de valorcs. El diagrama en forma 
de tarta esta indicado en aquellas oca- 
siones en que te interese mostrar los 
distintos valores en proporcion a la to- 
talidad; por ejemplo. si tienes que 
comparar porcentajes. 

Los programas que siguen ilustran 
la manera de instruir a tu ordenador 
para que te haga ambos tipos de dia- 
gram as. 

Ya sabes que tu Commodore fun- 
cionara mcjor (dado que sus funciones 
de graficos son poco accesibles en el 
BASIC normal) con el cartucho BA- 
SIC de Simon. 

LA RUTINA DE LAS BARRAS 

Esta rutina es en esencia la misma 
que la de cualquier grafico. Una vez 
rcunidos los datos, hay que entrarlos 
en la memoria, determinar las coor- 
dcnadas, trazar las barras y afiadir los 
textos. Una de dos: o introduces (IN- 



PUT) cada uno de los datos y vas tra- 
zando cada barra sobre la marcha, o 
cspcras a tcncr introducidos todos los 
datos para empezar la tarea del tra- 
zado de barras. Existe una tercera po- 
sibilidad: leer (READ) los datos y tra- 
zar las barras/ cambiandolos siempre 
que desees dibujar un diagrama difc- 
rentc. Lo que si te aconsejamos es 
que, sea el que sea el metodo a seguir, 
almacenes los datos en una tabia de 
variables, porque asf la maquina idcn- 
tificara facilmente las coordenadas de 
cada barra. 

LEER LOS DATOS 

Entra estas lineas que leen (READ) 
los datos, y ejecutalas (RUN). Toda- 
vi'a no veras nada en pantalla, pero ha- 
ras bien en ejccutar cada parte del 
programa, para comprobar y depurar 
errores. 

5 HIRES 0,:MULTI 2,4,6 
10 fM-12 
20 DIM A(N) 
70 FORT-1 TO N 
80 READA(T) 
90 NEXTT 

3010 DATA 2,4,7,4,6.3,8, 
6,9.4 



0,5, 



Esta seccion del programa selec- 
ciona un modo que sirva para graficos 
en aquellas maquinas que lo requie- 
rcn. Establecc cl 12 como numero de 
barras que se trazaran (llnea 10) y di- 
mensiona la tabla con esle mismo nu- 
mero (linea 20). Escoge, si quieres, 
otro numero, pero si es uno mayor, no 
olvides que has de tencr un mimcro 
equivalente de entradas en la senten- 
cia DATA de la linea 3010, porque de 
lo contrario te encontraras con el error 
oul of data. Con frecuencia es mejor 
disponer de mas entradas en la linea 
de DATA cuando sc esta compro- 



bando el programa, de este modo pue- 
des aumentar o disminuir cl niimero 
dc barras a trazar en la linea 10, sin 
que sea necesario alterar los datos 
cada vez. 




LAS ESCALAS 



Ya tiene el ordenador en su poder 
los valores absolutes de cada coorde- 
nada de barras. pero habras de decirle 
a que escaia los quieres reprcscntados. 
Si no se lo dices, puede que alguno de 
los datos te rcbase la pantalla, micn- 
tras que los datos mas pequerios apa- 
rczcan en ella como motitas practica- 
mente invisibles. Para trazar los ejes a 
escaia, escribe y ejecuta (RUN) las si- 
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COMO SE DIBUJAN LAS BARRAS 



TOMADEDATOS 



LA ESCALA DE LAS COORDENADAS 



ESTADISTICAEN3-D 



ELDIAGRAMADETARTA 



guientes lineas (de nuevo, hazlo como 
prueba, aunque nada veas todavia en 
la pantalla). 

30 DX=150/N 
40 READ DY 
3000 DATA 18 



Esta parte del programa produce 
una escala para el eje X djvidicndo el 
area disponible de la pantaila (descon- 
tados los margenes) por el numero de 
barras que se van a trazar (linea 30). 
El numero maximo de barras posiblc 
depende dc cada ordenador, pero 
puedes deducir el valor que mejor gra- 
fico te ofrece si conoces la extension 
de la pantalla de graficos de tu orde- 
nador (la cncontraras en el Manual del 
Usuario): cambia en consonancia el 
valor de N en la linea 30. 

La escala para los valores del eje Y 
se obtiene multiplicandolos por un 
factor, teniendo en cuenta el espacio 
que necesitas para el texto que acom- 
pafiara ei grafico. Este valor se entra 
automaticamente, pero es Icido, 
READ (linea 40), de la sentencia 
DATA (linea 3000). En este punto, 
puede que te tiente escribir una breve 
rutina para entrar, INPUT, este valor 
en la linea 40. Si sabes como hacerlo, 
borra la linea 3000; de otra manera, 
esta sera el primer tramo de datos que 
sera dibujado. en lugar del primer nu- 
mero contenido en la linea 3010, 

El resto del programa comprende 
dos rutinas. una para dibujar los ejes 
y otra para dibujar las barras. Escribe 
esta parte del programa, pero no la 
ejecutes (RUN), porque recibiras un 
mensaje de error si el ordenador no 
encuentra las rutinas que han sido lla- 
madas: 



100 GOSUB li 

110 F0RT=1 TO N 

130 X-(T-1)*DX + 11 

140 GOSUB 2000 

150 NEXTT 

160 GOTO 160 

La linea 100 bifurca el programa a 
la rutina que dibuja los cjes, y la linea 
1 10 agola el numero de barras que han 
de dibujarse. Por cada vuelta del bu- 
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cle, la linea 130 da escala a la coor- 
denada X correspondicntc a la barra 
que se va a trazar ('"DX) y anade un 
offset (un U en el Commodore M) 
para dcjar un margen en el eje Y. La 
h'nea 140 lleva el programa a la subru- 
tina que dibuja las barras, y la linea 
150 pasa al siguicnte incremento del 
contador del bucle. 

APARECEN LAS BARRAS 

Entra ahora las rutinas que dibajan 
los ejes y trazan las barras: 

1000 LINE 10,0,10,181,3:LINE 

10,181,160,181, 

3 
1050 FOR T=0TO 10 
1060 TEXT 0,180-Tn8, 

MID$(STR$(T),2),1, 

12 
1070 NEXTT 
1080 RETURN 
2000 C0-C0+1:IF C0>3 

THENC0=1 
2010 BLOCKX.180-A(T)*DY, 

X+DX-1,180, 

CO 
2060 RETURN 

Para dibujar los ejes. esta parte del 
programa mueve el cursor a la iz- 
quicrda de la pantalla arriba, reser- 
vando margen y la linea 1000 dibuja el 
eje Y. 

La misma linea dibuja el eje X a 
partir del cabo inferior del eje Y y ha- 
cia la derecha de la pantalla. 

Las lineas de la 1050 y a la 1070 es- 
tableceu un bucle con numeros del 
al 10 y los imprime a lo largo del eje 
Y. El resto del programa establece co- 
lores alternantes (linea 200) para las 
barras. 

La linea 2010 las dibuja. 

IRES DIMENSIONES 

Cuando ejeculcs este programa. no- 
taras que el diagrama de barras resulta 
de una apariencia muy poco escolar 
pero que gana en atractivo a cualquier 
representacion lineal, a pesar de que 
ambos se basen en los mismos dates. 
Pues bien, todavia se puede realzar la 



visualizacion dc la informacion pre- 
sentandola en tres dimensiones. Esto 
posibilita un buen uso del color y una 
figura solida y natural. 

Antes dc dcsarrollar cl siguiente 
programa, guarda lo que ya has escrito 
(para saber lo que tienes) y, sin hacer 
un NEW o un BREAK, introduce los 
siguientes cambios. Debes saber cdi- 
tar las facilidades de tu ordenador 
para hacer los cambios y ahorrarte es- 
fuerzos. pero sobrc todo asegiirate de 
que no cometes errores dejando pasar 
pcquciias diferencias en las lineas del 
listado. 

2010 BLOCKX,180-A(T)*DY, 
X+(DX^5)-1,180,CO 

No ejecutes el programa ahora, tal 
como esta, puesto que no esta com- 
plete y lo linico que vas a conseguir es 
un mensaje de error. Las alteraciones 
que acabas de hacer establecen algu- 
nas variables y los comandos adicio- 
nales para dibujar en la direccion Z, 
la tercera dimension. Para completar 
el programa entra las signientes lineas 
y ejecutalo (RUN). 

1010 LINE 10 + DX*.5,0, 

10 + DX*.5,181, 

3 
1020 FOR Z-18T0 180 

STEP18 
1030 LINE 10,Z,10 + DX*.5,Z-5, 

1 
1040 NEXT 
1050 FORT-0TO 10 
2020 FOR N-0TO DX*. 

5-1 
2030 LINE X+N,180-A(T)*DY-1, 

N + X+(DX*.5)-1,180- 

A(T)*DY-5,1 
2040 NEXT 
2050 LINE X-H(DX\5)-1 + N, 180' 

A(T)*DY-5,X+(DX*.5)- 

1 + N,180,CO 

Ahora ya debes tener sobre tu pan- 
talla una esplendida representacion en 

tres dimensiones de tus datos. Es un 
Util ejercicio cambiar los valores de los 
comandos del color para seleccionar 
aquellos que a ti mas te gustan. Anota 
seguidamente aquellas lineas que ha- 



bras de cambiar para alterar la cscala 
del grafico, de modo que las tengas 
siempre a mano cuando vayas a utih- 
zar cl programa en un futuro. La 
forma mas sencilla de hacer notas es 
mediante sentencias REM. Por ejem- 
plo, puedes ariadir una nueva linea 
que contenga una sentencia REM se- 
guida de una linea alternativa, que in- 
cluye su niinrero y el comando corres- 
pondiente. 
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TARTAS 



"^ manera igualmente atractiva 
,^presentar graficamente la infor- 
. 'H es el diagrama de tarta. Se 

de un grafico circular donde se 
una linica coordenada (polar) 

cada tipo de datos. El tamano dc 

division esta representado por un 

lo. 
n su estructura, el programa que 




dibuja una tarta cs de lo mas sencillo, 
pero nosotros lo hemos complicado un 
poco para que lo puedas ulilizar con 
facilidad. 

Entralo y ejecutalo (RUN) si quie- 
res ver come funciona: 




10 
20 

40 
40 



60 



7 



80 



V-\ 



DIM A(100),P(100) 
PRINT "[SHIFT+CLR/HOM 
][CTRL + 8]":C0L0UR 0,0 
PRINT AT(17,10)"MENU" 
PRINT 

TAB(10)"[CTRL+2][CRSR 
ABAJOll: ENTRADA DE 
DATOS" 

PRINT TAB(10)"2: VER 
DIAGRAMA" 

PRINT TAB(10)"3: FIN DE 
PROGRAMA" 

GETG$-.G = VAL(G$):IFG<1 
OR G>3 THEN80 
90 ON G GOSUB 200,400, 

600 
100 GOTO 20 
200 PRINT 

"[SHIFT+CLR/HOME]" 

:N-0 

A$"":PRINT "VALOR N.", 

N + 1,:INPUT A$:IF A$-"" 

OR VAL(A$)=0 

THENRETURN 

N-N + 1:A(N)- 

VAL(A$) 

IF N<31 THEN 

210 

RETURN 

IF N = THEN 

RETURN 



210 

220 
230 
240 




40 b 

410 

420 

430 
450 
460 

470 

480 
490 



PRINT "[SHIFT+CLR/HOM 

E]":COLOUR 14;HIRES0, 

1:MULTI2,4,6 

TT=0:FORT=1 TO 

N:TT=TT+A(T): 

NEXT 

RT=0:FOR T=l TO N:RT 

= RT+A(T):P(T)-RT/TT-.NE 

XT T 

CO=1:P(0)=-1: 

N=0 

FORT-0TO 2*EXEC 

STEP.01 

IFT>2*EXEC*P(N) 

THENN-N + 1:C0 = C0+1:IF 

C0>3 THENCO 

= 1 

LINE 80,100, 

80+40*SIN(T), 

100 + 50*COST(T), 

CO 

NEXTT:LINE 80,100,80, 

150,0 

PAUSE 15:NRIVI : 

RETURN 

PRINT "[SHIFT+CLR/HOM 

E][CTRL+1]":NRM :COLO 

UR 6,1 



DESCRIPCION DEL PROGRAMA 

Cuando hayas ejecutado este pro- 
grama, veras primero un menu. Es lo 
que imprimc (PRINT) las Uneas 40 a 
70 y te permite entrar los datos, ver el 
diagrama o finalizar el programa. La 
linea 80 espera a que aprietes una te- 
cla; puedc ser cualquiera (salvo las 
que rcstauran la memoria), aunque 
solo 1, 2 y 3 hacen desaparecer el 
menu. Esto es lo que consigue el IF ... 
THEN establecido en la Itnca 80. Una 
condicidn semejante sitnada en la li- 
nea 400 hace que el programa vuelva 
al menii si aprietas 2 sin entrar ningun 
dato. 

Y si pruebas a pulsar 3 finalizas el 
programa. 

Si quieres que trabaje de nuevo, lia- 
bras de rccurrir al RUN. 

Para empezar. lo mas obvio es que 
elijas 1. que lleva el programa hasta 
una rutina de entrada de datos. La li- 
nea 90 calcula la linea actual a la que 
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debe dirigirse ei programa, la cual en 
este caso es la linea 200. Esta esta- 
blece la variable (N) de los datos, que 
vamos entraiido (INPUT) en la linea 
210 y almacenandolos niecliante la 220 
en una tabia que quedo dimensionada 
en la linea 10. 

Para entrar los datos, escribe los nu- 
meros seguidos de RETURN. La li- 
nea 230 comprueba si has introducido 
lodos los datos cuyo espacio fue re- 
servado en la Ifnea 10. Si no es asi, el 
programa hace un bucle y viielve a la 
linea 210 para entrar el siguiente dato, 
Observa que no necesitas llenar todo 
el espacio reservado; si, por ejemplo, 
solo deseas una tarla dividida en cinco 
porciones, habras de pulsar RETURN 
dos veces una vez introducido el 
quinto tipo de datos. La linea 100 
lleva. entonces, el programa a la ru- 
tina que visualiza el menu. Ahora 
bien, si tus datos llenan completa- 
mente el espacio reservado, la linea 
240 cnviara automaticamente el pro- 
grama al menu, por lo que no podras 
nunca rebasar la capacidad de la labia. 

AQU! TIENES LA TARTA 

Si ahora pulsas 2, el programa va a 
la linea 400, que inicia la rutina que 
dibuja la tarta. La h'nca 410 hace un 
bucle para los datos y sus totales. El 
resto de la rutina determina la escala 
para estos y dibuja el grafico. Repasa, 
si quieres enterarte bien, lo que ya se 
ha publicado en INPUT sobre el modo 
de tratar las funciones circulares. 

La linea 420 hace un bucle para los 
datos entrados, obteniendo el subtotal 
de estos en cada pasada y divide el 
subtotal por el total de los datos. Estos 
subtotales ya a escala se almacenan en 
la tabla P () dimensionada en la linea 
10. La linea 430 restaura algunas va- 
riables que ayudan la sccuencia de co- 
lores de las porciones de la tarta. Las 
lineas 450 a 480 dividen la tarta, se- 
leccionan el color de cada seccion y di- 
bujan los radios a colores para rellenar 
cada seccion. La linea 490 establece 
un breve retardo para que el grafico se 
haga visible, cambia despues el modo 
y vuelve al menu. La linea 600 es una 
rutina aparte, que pone la visualiza- 
cion en normal. 
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PROGRAMA MULTIGESTION (y III) 

A continuacion publicamos el resto del programa Multigestion que, por razones de espacio, no se 

publico completo en el numero anterior de INPUT. 



1515 
1520 
1525 
1530 
1535 
1540 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 

1640 

1645 

1650 

1655 
1660 
1665 
1670 
1675 
1680 
1685 
1690 
1695 
1700 
1705 
1710 



NEXT Y 

NEXT X 

CLOSE 1:RETURN 

REM **^*^- 'LOAD' PROGRAMAS ■^**'^* 

OPEN 1,1,0,"FECOM C64" 

FOR F-0TO 100 

FOR E = 0TO 8 

INPUT#1,C$(F,E):IF C$(F,E)-"-" THENC$(F,E,)-" " 

NEXT E 

NEXT F 

FOR A-0 TO 100 

FOR B = TO 4 

INPUT#1,S$(A,B):IF S$(A,B)-"-" THENS$(A,B)" " 

NEXTB 

NEXT A 

FOR X=0TO 100 

FOR Y = 0TO 1 

INPUT#1,C0:F0R Z-1 TO CO:FOR ZZ = 1 TO 4:INPUT#1,D$(ZZ,Z) 

NEXT ZZ,Z 

INPUT#1,T$(X,Y):IFT$(X,Y) = "-" THENT${X,Y) = " " 

NEXT Y 

NEXT X 

CLOSE liRETURN 

PRINT 'TSHIFT+CLR/HOME]":POKE 53272, 21:P0KE 53280, 0:POKE 53281,0 

PRINT 'TSHIFT+CLR./HOME][3*CRSRABAJO]"TAB(10)"[CTRL+9]-*^**^-*[2ESPACIOS]MENU[ 

2ESPACIOS]*****":PRINTTAB(10)'TCTRL+6][2*CRSRABAJO]1.ENTRARDATOS" 

PRINT TAB(10)"[CRSR ABAJ0J2.VER DATOS":PRINT TAB(10)'TCRSR ABAJ0]3.GUARDAR 

EN CINTA" 

PRINT TAB(10)'TCRSR ABAJ0]4.CARGAR DESDE CINTA":PRINT TAB{10)'TCRSR ABAJO] 5 

OPCION IMPRESORA" 

PRINT TAB(10)"[CRSR ABAJ0J6.ALTERAR DATOS".PRI NT TAR(1 0)"[CRSR ARAJ0]7. MENU 

PRINCIPAL" 

PRINT TAB(10)"[ 2^CRSR ABAJ0][CTRL+9J ESCOGE LA OPCION " 

GET K$:IF VAL (K$)<1 OR VAL {K$)>7 THEN1660 

C$=" ":KK$ = K$:IF K$-"l" THENGOTO 1860 



JF K$="2' 
IF K$ = "3' 
IF K$ = "4' 
IF K$="6' 
IF K$="6' 
■JF K$ = "7' 
GOTO 1635 

CC = 0:Cl-0 

PRINT "[SHIFT 
TABdD'TCTRL 



THENGOSUB 1825rG0T0 1935 

THENGOSUB 1440 

THENGOSUB 1530 

THENPRINT "[SHI FT + CLR/HOME]";GOSUB 1915 

ANDCO<>0THENC$ = "S":CQ=1:QQ$-D$(4,1):GOTO 1705 

THEN555 



CLR/HOME][ 2"CRSR ABAJO]' 
-91ENTRADA NLJMERO"CQ 



FC$-"S" THENPRINT 
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1715 
1720 
1725 

1730 
1735 
1740 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 



PRINT "[CRSRABAJ0]'TAB(17- 
PRINT"[CRSRABAJ0][CTRL+61 



;LEN(A${VAL(QQ$)))*.5))A${VAL(QQ$)) 



1805 
1810 
1815 
1820 
1825 
1830 

1835 

1; 



1845 
1850 
1855 
1860 
1865 
1870 
1875 

1880 

1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 



PRINT"[2ESPACI0S]FECHA12ESPAC10S][SHIFT+B][3ESPACI0S]C0NCEPT0[3ESPAC10S] 
[SHIFT + B][3ESPACI0S]CANTIDAD" 

PRINT"— ":SC = G) 

IF C$ = "S" THENC1=CQ:G0SUB 1790:GOTO 2020 

C1-C1 + 1:IF D$(A,C1)-QQ$ THEhlGOSUB 1790:IF PR$-"N" THENSC = SC+1 

IFSC=>10THENSC-0:GOSUB 2005:PRmT "[SHIFT -hCLR/HOMEj [ 5*CRSR ABAJO]" 

IF Cl-400 OR VAL(D$(4,C1)) = THEN1760 

GOTO 1735 

C1=0:FOR Z=l TO 8:NCZ)-0:NEXT :FR-0 

C1=C1 + 1:IFC1 = >400 OR VAL {D$(4,Cl))-0 THENRETURN 

IFVAL(D$(4,C1))-VAL(QQ$)THENN(VAL(QQ$)) = N(VAL(QQ$)) + VAL(D$(3,C1)) 

1FVAL(D$(4,C1))-8ANDVAL(QQ$) = 8THEN1765 
IFVAL(D$(4,C1))<>8THENFR = FR + VAL(D${3,C1)) 

GOTO 1765 

PRINT LEFT$ (D$ (i,Cl) + 'T 19 ESPACI0Sj",9)"[SHIFT + B]"; 

PRINT LEFT$ (D$ (2,C1) + 'T 19 ESPAC10S]'M4)1SH1FT+B]"; 

VV$ = D$(3,C1):TA-14 

VV-VAL(VV$):IF VV-INT (VV)-0 THENVV$ = STR$(VV) + ".00" 

IF [V1ID$(VV$,LEN(VV$)-1,1) = "." THENVV$-VV$ + "0" 

PRINT R[GHT$("[16 ESPACIOS]"+VV$,TA) 

RETURN 

PRINT "[SH1FT+CLR/H0ME][ 6*CRSR ABAJO]" 

PRINTTAB(10)"[CTRL + 9][5ESPACIOS]CATEGORIA[6ESPAClOS][CRSRABAJO.llCTRL + 6]": 

POKE198,0 

FOR Z=l TO SiPRINT TAB(9)Z": "A$(Z):NEXT 

PRINT TAB(10)'TCRSR ABAJ0][CTRL + 9][ 2 ESPACIOSIESCRIBE OPCION 

?[SHIFT+ESPACIO]" 

GET K$:IF (VAL (K$)<1 OR VAL(K$)>8) AND K$<>CHR$(13) THEN1845 

IF K$ = GHR$(13) AND KK$-"1" THEN1845 

PRINT "[SHIFT+CLR/HOME]":QQ$ = K$: RETURN 

IF K$-CHR$(13) THENC0-C0-1:G0T0 1635 

CO=CO-fl:lFCO>400THENCO-400:GOTO 1635 

C1=C0:D$(1,C1) = " " 

PRINT "[SH!FT+GLR/H0ME][ 2*CRSR ABAJO]":IF C$<>"S" THENPRINT "PULSA RETURN 

EN CAMPO DE FECHA PARA MENU" 

INPUT "[ 3^CRSR ABAJO][ 2 ESPAC10S]FEGHA";D$(1,C1):IF D$(1,C1)-" " 

THENK$-CHR$(13):G0T0 1860 

INPUT "[CRSR ABAJO][ 2 ESPACIOSIESCRIBE EL ARTICUI 0[CTRL + 6]";D$(2,C1) 

INPUT'TCRSRABAJO][2ESPACIOSJESCRIBELACANTIDAD[CTRL + 6]";D$(3,Cl):GOSUB1825 

IF QQ$<>CHR$(13) THEND$(4,G1)-QQ$ 

IF QQ$ = CHR$(13) THEN1635 

IF G$="S" THENQQ$-D$(4,GQ):G0T0 1705 

GOTO 1860 

PRINT "[SHIFT+CLR/H0ME]"TAB(5)"[ 4*CRSR ABAJOIQUIERES IMPRIMIR? (S/N)" 

GET K$:IF K$-"S" THENPR$=S":RETURN 

IF K$-"N" THENPR$-"N":RETURN 

GOTO 1915 

IFK$=CHR$(13)THEN1635 

IF PR$ = "S" THENOPEN 4,4:CMD 4 
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1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 

2010 
2015 
2020 

2025 
2030 
2035 
2040 
2045 
2050 
2055 
2060 

2065 



GOSUB 1705:PRINT " 

VV$ = STR$(N{VAL(QQ$))) 

PRINT TAB(18)"T0TAL :";:TA=12:G0SUB 1; 

PRINT "[GTRL+6] . 



-[CTRL+6]" 



)5 



PRINT TAB(n)"fCRSR ABAJ0][CTRL+6]GAST0S TOTAL :";:TA-12 

VV$-STR$(FR):GOSUB 1805:VV$=STR$(N(VAL(QQ$))-FR) 

IF QQ$ = "8" THENPRINT TAB(16)'TCTRL+6][CRSR ABAJOIBALANCE :";:TA-12;G0SUB 1805 

IF PR$-"S" THENPRINT#4,CHR$(13):CLOSE 4 

GOSUB 2060:K$-"2":POKE 198,0 

GET W$:IFW$ = " "THEN1990 

IF W$="S" THENGOSUB 1805:GOTO 1935 

GOTO 1665 

PRINT TAB{ll}"f. 2^CRSR ABAJOKPULSA UNATECLA PARA CONTINUAR) [CTRL+6]":P0KE 

198,0: VMni98,l 

PRINT "[SHIFT+CLR/HOME][ 6*CRSR ABAJO]"; 

FOR Z-1 TO 4:PRINT "[ 39 ESPACIOS]":NEXT :RETURN 

PRINT"[CRSRABAJO](,)PARAIRHACIAATRAS(.)PARAADELANTE[10ESPACIOS][CRSRABAJO] 

'SPCPARACAMBIAR" 

GETP$:IF P$-" "THEN2025 

IF P$-CHR$(13)THEN1635 

IF P$-CHR$(32)THEN1875 

IF P$ = "." THENCQ-CQ+1:IF CQ>CO THENCQ=CO 

IF P$ = "/' THENCQ-CQ-1:IF CQ<1 THENCQ-1 

IF P$-"/' OR P$="." THENQQ$-D$(4,GQ):G0T0 1705 

GOTO 2025 

PRINT 'TCRSR ABAJOJPULSA UNATECLA PARA SEGUIR <RETURN>":PRINT "PARA IR AL 

MENU" 

RETURN 
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GOLPES Y PORRAZOS 



Muchos de los juegos de accion que 
mas records dc vcntas han batido se 
basan en cstc tipo de juego: tu 
palanca se convertira en una especie 
de antebrazo que sera cl que de y 
reciba los porrazos. El ordenador se 
convertira en el instrumento que 
recibira todos !os golpes. y que te 
permitira luchar a muerte, dando y 
recibiendo hasta que te duelan las 
manos de tanto darle marcha al 
joystick. 

A todos aquellos que, cuando 
visionan una pelicula de BRUCE 
LEE o de JACKIE CHANG se 
quedan pensativos, estos juegos les 
permitiran ponerse en la piel de sus 
heroes favoritos. 
Cabe mencionar que es bastante 
evidente que los juegos de ARTES 
MARCIALES suelen ser mas 
atractivos, ya que caben escenarios 
mas exoticos, golpes mas 
extravagantes y sonidos tan 
estiemecedorcs como el KlAI ! ! ! 
Quizas por eso suelen parecer mas 
monotonos los juegos de iucha libre 
o de boxeo que las avcnturas 
orientales con ninjas, guerreros y 
estrellas de la muerte. 

BOXEO 



BARRY MAC GUIGAN 
CHAMPIONSHIP 

Sin duda uno de los primeros boxeos 
que salio al mercado fue el BARRY 
MAC GUIGAN. En el se perfilaban 
ya las caracteristicas que iban a tener 
los succsores; el angulo de la pista, 
la eleccion de entre diferentes 
caracteristicas de jugadores, la 
posibilidad de multiples cambios en 
la vestimenta y la posibilidad de 
entrenamientos. 
Lamentablemente, en tema de 
juegos e! que innova un concepto, y 
sin duda alguna este es el caso, paga 
las consecuencias con un menor 
grado de detalle y, a menudo, el 



esfuerzo creativo se ve 

posteriormente «recompenRado» por 
un alto grado dc plagio posterior. 
En el BARRY podras elcgir dc cntre 
varios tipos de peleones: dcsde el 
tipo BULLDOG (para los mas 
bestias) hasta el estilo bailarin para 
los contrincantes de tipo tecnico que 
amen los rapidos juegos de piernas. 
El juego incluye la posibilidad de 
entrenamicnto intensivo en una sala 
de entrenamiento en la que podras 
pasarte varias horas trabajando el 
saco de serrin o bien usar la cuerda 
para aumentar la velocidad de 
piernas y hacer abdominales. Tras 
todo esto llega la definitiva pelea: 
aparecera en la parte inferior de la 
pantalla el GONG, e! ring visto 
desde uno de los laterales, las 
puntuaciones de los diferentes 
contrincantes, el tiempo que queda 
hasta el final del juego, etc. Existen 
siete tipos de golpes: cinco tipos de 
aiaques y dos tipos de defensa. Los 
ataques ineluyen desde el uppercut 
hasta un velocisimo golpe de 
izquierda a los abdominales del 
contrario. Las defensas son menos 
variadas pero no por ello menos 
practicas: guardia alta y rctroceso. 
La velocidad de desplazamiento por 




la pista podria ser un poco mas 
rapida y quizas sea esta la unica 
caracteristica que enlorpezca un 
tanto cl juego. Que en todo lo 
demas debe. sin duda, fonnar parte 
de una ludoteca que se precie. 
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FRANK BRUNO'S BOXING 

FRANK BRUNO'S BOXING fue 

10 de los programas que mayor 
[espectacion causaron en el publico... 
jEntre las caracteristicas anuiiciadas 
Ise hallaban las posibiMdades de ser 
(contrincante de varios jugadorcs de 
las las nacionalidades posibles. 
iVIOL! era el representante 
liano, BRUTOVSKI era cl 
;presentante de la UNION 
[SOVIETICA, etc... El jnego no da 
[pie a contemplaciones ni 
lentrenamientos, asi que se perfila cl 
[final de la carga, suena el gong y 
[enipieza la pelea. El primero de tus 
)onentes cs uii canadiense que 
rece muy duro de pelar: ojo con la 
ira porque te la puede poner a 
Fcuadros. En definitiva, no es tan 
liapido como podia parecer a primera 
msta y seguro que puedes con el. 
[Las petcas se resuelven al cabo de 
Ires minulos de combate sin ningun 
tipo de apelacion, y hay ires 
[combates. Estos se suceden uno tras 
hasta que alcances la cima del 
ipeonato del mundo. Como tc 
[puedes imaginar., el nivel dc 
Idificultad sube con cada 
contrincante: FRENCHIE el trances 
y TRIBAL el africano (con cl liucso 



en la nariz) son un autentico hueso. 
Mas hueso es, sin duda. el 
contrincante RAVIOLI MAEIOST 
que, como su nombre indica, es un 
mafioso con cara de pocos amigos, y 
que lanza golpes diestros y todo lo 
sucios que se le puedan imaginar 
sobre la marcha. Cada jugador tiene 
un nombre asociado a la «facha« y 
nacionalidad. 

Las posibilidades graficas del 
ordenador estan bien aprovechadas: 
veras en ia parte superior 
izquierda y derecha las 
earas de los 

contrincantes: debajo de 
la pantalla se hallan los 
indicadores de fuerza de 
los oponcntcs y una vista 
parcial del ring (solo uno 
dc los lados de las cuerdas 




El ultimo dc los contrincantes es 
PETER EL PERFECTO, que es, 
sin duda, mucho mas fticrte que los 
conlrincantes antenores: deberas 
manejar a la perfeccidn el uppercul y 
cuidarte de no pcrdcr uno solo de los 
descuidos de tu contrincante para 
atizarle. OJO !!! porque en cuanto te 
enganchc veras que no tc dcjara saiir 
vivo del cuadrilatero. 
Lo unico que se puede echar 
de menos en este proi^rama es que se 
pierda gran parte de la 
vision de juego por el 
tan peculiar angulo de 
vision que ban 
scleccionado los 
programadores. Y el 
peculiar manejo a que 
obliga el juego desdc los 
distmtos ansulos- 



KARATE 



BLACK BELT 

BLACK BELT: cinturon negro. Sin 
duda, el primer programa que salio 
al mercado referente al tenia que nos 
ocupa. [Los graficos no eran lo quo 
mas resaltaba de este programa! 
Oiiizas por eslo nunca llego a 
aparcccr en nuestro pais. Tal vc/- la 
caracten'stica mas relevante dc este 
programa sea que pcrmite crear una 
base de datos dc caracteristicas del 
jugador que tienc en cuenta todos 
los combales anteriormentc 
realizados. Y como no todos somos 
iguales, podras elegir el cinturon que 
corresponde a tu nivel de 
conocimiento:^ o ambiciones. 
E] orden de los cinlurones es el 
siguiente: bianco, amarillo. verdc, 
azul, rojo y negro. Como el 
programador era consecuente, cada 
color se corresponde con un nivel dc 
juego. y hay una serie de patadas 
que te seran imposibks en los niveles 
de conocimientos mas bajos. 
Concretamcntc, si quieres practicar 
el goipe que sale mucho en la 
pelicula de KARATE que consislc 
en correr y saltar dando una patada, 
te sera necesario correr el riesgo de 
coger el cinturon rojo. 
Relacionado con el sistema de 
puntuacion existe otra particularidad. 
Un arbitro en pantalla computa los 
tantos que se hacen. Esta puntuacion 
te sera olorgada segun cl grado de 
djficultad y la ejecucion del golpc: 



asi scran distintos un golpe facil bien 
ejecutado que uno dificil ejccutado a 
mcdias. El programa dara puntos al 
contrincante que logre evitar el 
golpe. 

El arbitro es muy cstricto y no te 
dejara pasar ni una sola falta de los 
reclamentos. 
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Black Belt 
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Aparte de esto. quizas io que mas se 
eche dc menos sea la animacion. que 
es algo pobre, y mucho mas el 
sonido, que rccuerda muy vagamente 
a! de los golpes. 



EXPLODING FIST 

No podia taltar en nuestro recorrido 
el EXPLODING FIST, el juego dc 
cstrellato indiscutible que lanzo a la 
fama para . 
siempre a la 
MELBOURNE 
y que en 
ESPANA 
batio todo tipo 
de records. 
Lo mas 
atractivo de 
EXPLODING 
cs que en la 
epoca en que 
aparecio 
supuso un 
extraordinario 
avanee en 



la animacion de los sprites. El 
desplazamiento dc tu hombre es 
perfecto. Los pasos son Icntos o 
rapidos a voluntad del joystick. Los 
movimientos son ultraprecisos y te 
permitiran realizar multiples 
acrobacias y piruetas con el fin de 
que tu oscuro oponente vaya a 
modcr el polvo. 

El marcado caracter belico de este 
juego queda patente cuando se sabe 
que de los 15 movimientos 
contemplados 11 son de golpes, y 
solo 4 de direccion (dcrecha, 
izquierda. salto adelante y atras). 
Todo esto eonlleva un serio 
problema de manejo de palanea que 
podras resolver optando por la 
opcion PRACTICE del juego que te 
permitira entrenarte hasta que te 
sientas va capaz dc cnfrentarte con 
los lipos en la arena. Debes scr de lo 
mas cxquisito en el juego, ya que 
pucdes correr el riesgo de que, aun 
ganando a tu adversarrio, el jucz 
omnipresentc ic anule el combate 
por FULLERO. Para pasar de 
combate en combalc deberas marcar 
tres tantos a tu adversario; el 
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Tiarcador tienc vocacion de oriental, 
- _ae es la representacion del 
-^olo del YING-YANG. Los 
\Dcites sicmprc cambnin de }ugnr y 
desfilar desde playas desiertas 
lemplos dcshahitados hasta salas de 
ibate o entrenaniiento. 
sonido tampoco estaba 
jreciado en este juego: cada 

bien dado esta rccompcnsado 
un grito inhumano de las 
iuces» del televisor. jSupcrreaiista! 



Son scis ios nivclcs de dificultad que 
tiene este juego. Aqui todo lo 
superfluo esta eliminado: no se 
pucdo camb'mr el color del pantalon. 
ni tampoco Ios guantes; aqui no hace 
falta, ya que lo unico iinportante es 
que empiecc cuanto antes el 
combate. Los oponentes se 
distinguen por el color de Ios 
calzones. La pantalla de presentacidn 
recuerda algo a la del FRANK 
BRUNO'S BOXING: Ios dos 




-Al BOXING 

{A\ BOXING esuno de Ios 
.:;mos titiilos que han salido al 
;rcado de este tipo de juegos. Los 
[AI son luchadorcs que usan tanto 
;nicas dignas del mas puro cslilo 
KARATE junto con tecnicas 
>pias del boxeo. En definitiva, se 
iVd de una especie de FULL 
CONTACT: Ios luchadores Uevan 
italones largos y guantes de 
)xeo. A decir de Ios que practican 
ite dcportc, es uno de Ios mas 
iros que existen. 



contrincantes aparecen en la parte 
superior junto a Ios indicadores de 
fuerza o resislencia. Realmente 
re&ulta tragica esta forma de 



presentacion, ya que a diferencia del 
Frank Bruno's, en cl que Ios retratos 
solo tienen una «dudosa» (por lo 
feos que son) funcion estetica. aqiu' 
estos retratos son el autentico 
indicador del estado de tu jugador y 
del oponenle: veras que euando te 
hayan «coIocado» cuatro o cinco 
«galletas THA1» una fina gota de 
sangre bajara por tus mcjillas. 
Conforme vaya habiendo mas golpes 
y golpes. la cara se ira 
ensangrentando; parecera que Ios 
ojos han desaparecido bajo Ios 
golpes y asL hasta que tengas ganas 
de tirar la toalla... Pero esto no es 
ROCKY, y aqui no es posible: o 
ganas o pierdcs. Y si ganas, la 
recompensa es que pasas a la 
siguicnte fase de juego. Caiiibiaudo 
el port del joystick podriis oplar por 
uno u otro jugador. Son, en total, 16 
las acciones que contempla este 
juego. Estan incluidas las patatas y 
punetazos a todas las alturas, 
protccciones, etc... En suma, un 
excelente juego de combate que hara 
las delicias de Ios que amen Ios 
juegos rapidos, ya que este es quizas 
el mas-rapido de lodos Ios juegos de 
combate que os hemos presentado 
hasta ahora. Pero aiin habran mas, 
no OS creais!!! 
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NINJA 

NINJA no podia faltar en nuestra 
seleccidn de programas de liicha. 
Como siempre, se trata de salvar a la 
mujer de tus suefios (princesa 
oriental, por mas scnas), raplada por 
los perfidos esbirros del mal, 
personificado este ultimo por algun 
alto capitoslc dc la mafia asialica. 
Como muchos de los numciosos 
juegos de MASTERTRONIC. 
aunque a primera vista parczca uii 
poco lento, posee una altisima 
adiccion: las fases se sucedcn lo 
bastante rapido como para qucdarse 
«enganchado» al joystick una 
«eternidad». 

Tencmos en nuestro poder las armas 
tipicas de los NINJA: nuestros punos 
de acero «inoxidable» para combates 
cuerpo a cuerpo, la espada y daga 
destructoras para segar cabczas dc 
indcseables cnemigos, y, por ultimo. 
las letales shaken, estrelias 
portadoras de la muerte, para barrcr 
y masacrar a distancia, que te 
ayudaran en tu periplo por los 
senderos luminosos de la venganza. 
Los recintos por los que lendremos 
que pasar son, en su totalidad, 20, 
de dificultad creciente y en las que 
nos encontramos con una inmensa 
troupe de oponentes. dotados con 




toda clase de armas y pcricia. 
En cuanto a los graficos, abundancia 
y profusion son los adjetivos mas 
adecuados para dcfinirlos. El scro/l 
es rapidfsimo, aunque con ligeras 
imperfecciones en algunas partes del 
escenario, y los sprites impecables. 
El color tampoco deja nada que 
desear, y el sonido, modesto en 
comparacion con los demas 
conceptos, cs aceptable. 
Teniendo en cuenta todo lo que 



hcmos dicho, solo cabc una 
conclusion: cstamos anle un 
programa excelente. 
Por otra parte, no os costara mucho 
haceros con cl desde las primeras 
partidas, pues el nivel de dificultad 
no es muy alto, y ademas, las 
informacioncs que aparecen en la 
panlalla os pucden dar en todo 
momcnto una idea exacta de vuestra 
situacion. 




62 INPUT 




/ Software 




SOFTACTUAUDAD 



;hampionship 

OOTBALL 

casa es GAMESTAR, cl 
rogramit lienc un antecedente 
itniordinario: el 1 WO ON TWO 
le tuvo la acogida que todos 

loceis. Esta vcz sc Irata de un 

luloso FOOTBALL 
AMERICANO, y aunque no sea 
iestro dcporte nacional bien vale la 
ina jugar a esta fabulosa cmulacion 

la que parece que los jugadorcs 
len de la pantalla cuardo liacen un 

icage. Aigunas jugadas son hasta 

lora nunca vistas y los el'ectos 

raficos son, simplementc, 

fnomenales. 

speramos que la casa PROINSA. 

le distribuyo antenormente el 

WO ON TWO, comeiciaiice este 
levo titulo. 



fabuloso 

helicoptero 

dot ado dc 

Unas 

caractensticas 

poco comuncs 

y de una 

velocidad de 

vucio y de una 

resistencia a toda prueba. 

Conio siempre, el manual de 

instruccloncs cs dc lo mas completo 

y la^ simulacion, de un realismo 

extraordinario. Podnis sclcccionar y 

modificar todos los parametros. que 

incluyeii desde ius inapas, 

armamento de aparato... jliasta el 

color del gorro dc! piloto! 

La vision es tridimensional y la 

velocidad de juego, realmente 




sorprendeme. 
El programa es de una calidad 
grafica excepcional. Tiene todos esos 
pcqucfios dctalles que a veces pasan 
desapcrcibidos, pero que 
entusiasman a quienes saben reparar 
en ellos. El scroll es rapido y suave, 
las figuras mas que desplazarse se 



UNSHIP 



i 



jL NSHIP es el ultimo titulo de la 
stigiosa casa MICROPROSE, 
lecializada en todo tipo de 
ulaciones; se Irata esta vez de 
otar el llamado APACHE, un 




«deslizan», los objetos haccn sombra 

sobre la supcrficic del suelo, el 
diseno grafico es minucioso y 
preciso... Podriamos seguir 
enumerando, pero creemos que ya 
hemos calificado los graficos. 
En cuanto a lo demas. solo podemos 
resenar un aspeclo poco posilivo: se 
trata del argumento, excesivamente 
simplista, y del desarrollo de la 
accion, algo monotono. 
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KILLED UNTIL 
DEAD 

Este es cl ultimo titulo de la 
prestigiosa casa norteamericana 
ACCOLADE, autora. entre otros, 
del famoso ACE OF ACES. Esta 
vez se trata de resolver un misterio 
tipo AGATHA CHRISTIE. Un 
asesinato. sospechosos, herencius. 
lugares insolitos y peligros 
innumerables y, jcomo no!, un fina 
que, sin duda alguna, no de&merece 
dc csta fabulosa casa dc software que 
nos tiene acostumbrados a una 
calidad grafica sin par. 
La accion transcurre en una serie de 
pantallas dc dcsarroUo tridimensional 




que, aunque se parecen mucho entre 
SI, siempre encierran peligros 
diferentes. 

El nivel de dificultad es quizas 
demasiado alto, pero esto, lejos de 
restar interes ai programa, 
contribuye a conseguir que no nos 
podamos separar de la pantalla hasta 
haber logrado algun pequeno exito. 
No obstante, cs muy probable que 
nos desesperemos un poco al 
principio, Es cuestion de voluntad. 
Al final de cada partida. podrcmos 
seguir nuestros progresos 
comprobando el nivel alcanzado en 
la tasa de «credibilidad del heroe». 



expresada en tantos por ciento. No 
esta de mas que te recordcmos que 
la escritora britanica Agatha Christie 
(1891-1976) constituye una de las 
cumbres de ia novela poUciaca, 
habiendo creado titulos tan 
estimulantes come clasicos como 
«Diez negritos», «E1 asesinato de 
Rogelio Ackroyd» y ^Asesinato en el 
Orient Express». de los cuales se han 
hecho acertadas y iujosas 
adaptaciones cinematograficas que. 
seguro, habreis visto en la pantalla 
grande o disfrutado en la intiniidad 
de vuestro hogar a traves del video o 
de la lectura. 



La principal innovacion que 
introduce este jucgo, pues la 
originalidad es uno de los factores 
que mas hemos de valorar, es que las 
distintas pantallas de que se 
compone son interdependientes entre 
SI, es decir, no se trata de 
«habitaciones» que simplemente se 
comunican sin continuidad clara, 
separadas por tabiques, sino de un 
solo piano continuo sin partes 
aisladas. 

Por lo demas, el juego es un 
derroche de imaginacion y de 
colorido que nos hara pasar 
muy bucnos ratos sin que en 
ningun memento llegucmos a 
aburrirnos. 



INSPECTOR GADGET 



INSPECTOR GADGET es, sin 

duda, uno de los titulos que mas 
expectativas ha creado en el 
mercado. La version en nueslro 
micro es ligeramente posterior a la 
de otras maquinas pero, a juzgar por 
las fotografias, merecia la cspera: 
para los que estan hartos de ver 
como otro usa los 
GADGETOPATINES, o bien el 
GADGETOBRAZO llego el juego 
(sin duda linico), que os permitira 
tencr toda la panoplia del famoso 
beroe tclevisivo. 
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FEUD 

• MASTERTRONIC ■ JUEGO 

El meji pas^ido os hablamos en el 
apartado de actualidad de un 
fenomenal programa que este mes h; 
sido dislribuido por DRO-SOFT en 
nuestro pais. El programa estan en la 
linea de precio de 

MASTERTRONIC, aunque la casa 
que lo creo originalmente es 
BULLDOG. El argumento es 
relativamente sencillo: en la edad 
media dos magos (uno bueno y otro 
malo) pugnan por el control de ana 
zona. La pugna so hace a base de 
nuinerosos hechizos. 




muy rapido, asi que deberas ser veioz, 
sobre todo en lo que a busqueda de 
ingredientes se rcficrc. Todos cstos 
son vegetales que debenis coger y 
cortar con una hoz y mezclar con 
otros para crear conjuros. 



ANIMACmN 


10 


INTERES 


8 


GRAFICOS 


10 


COLOR 


10 


SONIDO 


7 


TOTAL 


45 



Los hechizos y conjuros son bastantc 
taciles de rcalizar, ya que basta 
acercarse al caldero, ^iclcccionar de 
la lista de los 11 embrujamientos el 
que se quiere y, acto seguido. tomar 
los ingredientes del libro. 
Los graficos son quizas lo mejor del 
juego, aunque la iuiimacion no se 
queda corta, ya que este programa 
kigra gran parte de su realismo por 

elcceion de los colorcs tanto de los 
:,Tsonajes como de los escenarios. 
HI juego esta muy bien amhicntado y 
' - debido ser fruto de un laborioso 
"-"■ajo: prueba de ello cs que los 
- _: "»res ban respetado la vestimenta 
- !a epoca. 
1 "iKigo que tratara de climinarte es 
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Vendo Interface copiador de cassette a 
cassette (copia con dos unidades lec- 
toras C2N) de uso personal en 3.000 
ptas. Vendo los programas originales 
con sus instrucciones y cajas: Express 
Rider, Two on two, Skooldaze, Broad 
Street, Decathlon, etc. Todos ellos en 
cinta a 400 ptas. c/u para C-64. Jose R. 
Diaz Glez. C/ Rio Requejada, 2, 1." izq. 
33460 Llaranes. Asturias. Tl: {985) 57 28 
31. 

Necesito las instrucciones en caste- 
llano de los siguientes juegos: Back to 
the Future, Eidolon, Mission Elevator, 
Strike force Cobra, Jack the Nipper, Sa- 
boteur, Master of Lannps. Si tienes al- 
guna escribeme. Te las cannbiare por 
programas. Tengo casi 200. Tambien 
vendo e intercamblo. Juan Manuel 
Minguez. C/ Independencia, 10^ 2° 
derch. 40002 Segovia. 

Vendo Commodore 128, joystick, 30 re- 
vistas, programas, mariuales y libros 
por 50.000 ptas. y por 65.000 inclu- 
yendo DBASE II, Wordstar, Mbasic, Co- 
bol, etc. Junto o por separado. Perfecto 
estado. Jose Marsa Mallol. Tl: 352 98 
90 de 2 a 4 h. Barcelona 

Intercambio programas en cinta para el 
C-64. Dispongo de mas de 400 tituios 
algunos de ellos ultimas novedades. 
Prom'eto contestar a todos. Domingo 
Saura Ballester. C/ Exportador Ocam- 
pos, 3. Pozo Estrecho. Cartagena. Mur- 
cia. Tl: (968) 55 64 57. 

Cambio juegos para el C-64. Tengo 
parte de las ultimas novedades. Man- 
dame tu lista. Pedro Lanchares Amo- 
res. C/ Avenida de Portugal; 16, 3° B. 
24400 Ponferrada. Leon. 



eiMco 

Oscar Orallo. PIza. La Fortaleza, 11, 4.° 
C. 24400 Ponferrada. Leon. 



Vendo ordenador Dragon 200, un mo- 
nitor color, 15 juegos, precio a conve- 
nir. Mercedes. Tel: (93) 230 40 57. 



Cambio, compro o vendo programas 
para el C-64, tambien me gustaria po- 
nerme en contacto con clubs informa- 
ticos. Irlaki Jimenez Carcavilla. C/ J. A. 
Fdez., 6, 6", D. 31500 Tudela. Navarra. 
Tl: (948) 82 15 73. 

Vendo impresora CPA-80 con interface 
Commodore, con ocho meses, casi sin 
usar Y maletin de papel continue por 
45.000 ptas. Jose Fco. Espinosa Jurado. 
C/ Alfonso de Paiencia, 1 1 , 5°, D. 29007 
Malaga. Tl: (952) 27 92 21. 

Vendo 5 juegos originales para e! C-64 
(Summer Games M, Sky Fox, Sanxion, 
Two on Two, etc.}. Baratisimos. Cam- 
bio juegos novedades. Pedro Gomez 
Gonzalez. C/ Renedo, 14 1.° D. 47005 
Valladolid. Ti: 21 13 82. 

Intercambio/vendoycompro juegos 

para el C-64. Poseo mas de 500 todos 
de una gran calidad. La mayoria con 
turbo. Juegos como: Uridium, Com- 
mando, Green Beret, Rambo, Fist II, Int. 
Karate I y II, etc. David Tapias Monne. 
Sarda i Calla, 7, 4"-2.^. Reus. Tarra- 
gona. Tl: 31 66 17/31 95 94 (a partirde 
las 20.30K 

Me gustaria ponerme en contacto con 
personas quetengan un C-64-128 de La 
Coruna, para intercambio de revistas, 
programas y trucos. Elia M.^ Domin- 
guez. C/ Arenal, 29, 2°. 15002 La Co- 
runa. 



Cambio juegos e instrucciones en cinta 
para el C-64. Tengo unos 450 de gran 
calidad. Escribe aunquetengas pocos. 



Urge vender C-64K a estrenar con ma- 
nuales, juegos, joystick y DATACAS- 
SETTE. Todo ello por 40.000 ptas. Lla- 
mar a partir de las 18 h. Tl: (91} 250 18 
57. Juan Pablo Fdez. Conejo. P." de la 
Habana, 190, 2°, A. 28036 Madrid. 

Ofrezco 430 programas a cambio de 
una unldad de disco, tambien daria 
Unas 6.000 ptas. intercambio progra- 
mas para el C-64, tengo ultimas nove- 
dades como Express Raider, Arkanoid, 
Skate Rock, etc. Asimismo me urge 
conseguir los programas Dasic Light- 
ning y Game Marker los compraria o 
cambiaria por juegos. Fco. Javier Mo- 
ra nte Lopez. C/ Pompeu Fabra, 65, atico 
1.=^. 08922. Santa Coloma de Gramanet. 
Barcelona. 

Cambio programas para C-64, en cinta 
disco, poseo ultimas novedades. 
Jose Luis Rodriguez. C/ Escultor Ordo- 



nez. 15-23, 2-3 esc. A. 08016 Barcelona. 
Tl: 340 39 27. 



Vendo C-64 [36.000 ptas.), Datassette 
(7.000 ptas.), F. Cartridge (8.500 ptas.), 
L. M. para avanzados, L. M. para Com- 
modore, 54 interno, Diccionario 64, Ru- 
tinas 64, Guia del usuario, Lenguaje 
maquina, Graficos y sonido, Progra- 
macion en lenguaje Pascal y algunos 
mas (11.000 ptas.) y otras cosas mas. 
Todo mas juegos y utilidades (69.000 
ptas.). Josep Many. Canovelles. Barce- 
lona. Tl: 849 38 52. 

Vendo Commodore C-128,1571 Disk 
drive, Riteman C+ y monitor color Dy- 
nadata 40/80 columnas con cables in- 
cluidos, todo en conjunto o por lotes, a 
parte de numerosos programas tanto 
en C-64, C-128y CP/M mode: Marco A. 
Zamit Engo. Avda. Pais Valencia, 45. 
46850 Olleria. Valencia. Tt: (96) 220 01 
16 solo mafianas. 



Vendo C-64 mas unidad de disco 1541, 
Impresora MPS 802, cassette C2N, La- 
piz optico, joystick. Vendo todo con 
procesador de textos, hoja de calculo. 
Base de datos y programas graficos... 
Ademas regalo muchos programas de 
juegos V utilidades, libros y revistas, 
Todo por 110.000 ptas. Santiago Gar- 
cia. Madrid. Tl: (91) 202 32 01 de 14 a 
15 h y de 20.45 a 23.45 h. 

Vendo para el C-128 Compiladores de 
Cobol, lenguaje C y superbase para 
C-128. Vendo compiladores de Cobol, 
lenguaje C, Ada, Pascal y superbase 
(ninguno de los programas necesita 
usar CP/M.} Cobol o C a 25.000 ptas. 
Fernando J. Gallardo Romero. C/ Ve- 
tones, 9, 1.° Apdo. 315. 06800 Merida. 
Badajoz. Tl: 31 07 92. 

Intercambio/vendo juegos tipo Caul- 
dron II, Deactivators. Fist II, Titanic y 
casi 400 por el estilo. Tambien vendo 
interfaces copiadores de cintas a 3.000 
cucas negociables. Contestare a todos. 
Antonio Torrente. Poligono Canelles B1 
D-8, 7."-3.'. 08033 Barcelona. Tl: (93) 
427 47 99. 



Club para el C-64 CAMBIA- 
MOS/VENDEMOS utilidades, progra- 
mas, etc. Tenemos ultimas novedades: 
Enduro Racer, Gauntlet II, Arkanoid, 
etc. Admitimos nuevos socios. Ani- 
maos. Jose Luis Moreno Cordoba. C/ 
Rey, 89, 3.", A. 28300 Aranjuez. Madrid. 

Club de usuarios de Spectrum, Com- 
modore. MSX e IBM hace ampliacidn 
de socios. Para poder participar es- 
cribe: KIMBO YANEZ. C/ Conca de 
Tremp, 83, 1.°-1.^ 08032 Barcelona. 
Porfa, envia un sello. 



66 INPUT 



CiNCO MINUTOS ANTES DE COMPRAR UN JUEGO A 87 5 ptas. 
• ECHALE UN VISTAZO A ESTOSJUEGOS DE875ptas. 




VERSION CASSETTE 



ZAFiRO SOFTWARE DIVISION PsscQ de la Castellana, ill. 28046 Madrid 
Te(.a59 30oa rei Barna 209 33 65. Telex 22690 zarre 



SIGUENOS EL JUEGO. 



